      PROGRAM MAIN(INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT)
C     ENTRY  MAIN    B-93    VASCOM  PROGRAM                            00001000
C**** MEMBER NAME = B93TAMAN                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
      DIMENSION A0(3,15),A1(3,15),A2(3,15),BB0(16),BB1(16),BB2(16),     00006000
     1 RJ3(10),CPOW3(10),ETAI3(10,10),RJ4(10),CPOW4(10),ETAI4(10,10),   00007000
     2AMACH(3),CLLL(15),CLGAM(16),CPOW33(20),CTI3(20),CTI4(20),         00008000
     3 GMDD1(16),GAMD11(3,15)                                           00009000
      DIMENSION BNFUEL(10),BNLNG(10),BLKTIM(10)                         00010000
      DIMENSION OO3(2,4)                                                00011000
C                                                                       00012000
C                                                                       00016000
C ****    INPUT  COMMON                                                 00017000
C                                                                       00018000
C                                                                       00019000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00020000
C                                                                       00021000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00022000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00023000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00024000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00025000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00026000
C                                                                       00027000
C                                                                       00028000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00029000
C                                                                       00030000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00031000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00032000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00033000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00034000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00035000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00036000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00037000
     7SKIP1(9)                                                          00038000
C                                                                       00039000
C                                                                       00040000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00041000
C                                                                       00042000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00043000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00044000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00045000
C                                                                       00046000
C                                                                       00047000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00048000
C                                                                       00049000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00050000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00051000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00052000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00053000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00054000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00055000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00056000
     7CKRC      ,SPACE3(38)                                             00057000
C                                                                       00058000
C                                                                       00059000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00060000
C                                                                       00061000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00062000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00063000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00064000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00065000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00066000
C                                                                       00067000
C                                                                       00068000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00069000
C                                                                       00070000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00071000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00072000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00073000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00074000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00075000
     5SKMT      ,SKNAC     ,SKLMT                                       00076000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00077000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00078000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00079000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00080000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00081000
C                                                                       00082000
C                                                                       00083000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00084000
C                                                                       00085000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00086000
     1SPACE6(50)                                                        00087000
C                                                                       00088000
C                                                                       00089000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00090000
C                                                                       00091000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00092000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00093000
C                                                                       00094000
C                                                                       00095000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00096000
C                                                                       00097000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00098000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00099000
C                                                                       00100000
C                                                                       00101000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00102000
C                                                                       00103000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00104000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00105000
C                                                                       00106000
C                                                                       00107000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00108000
C                                                                       00109000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00110000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00111000
C                                                                       00112000
C                                                                       00113000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00114000
C                                                                       00115000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00116000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00117000
C                                                                       00118000
C                                                                       00119000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00120000
C                                                                       00121000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00122000
     1WGTIND    ,SPAC12(49)                                             00123000
C                                                                       00124000
C                                                                       00125000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00126000
C                                                                       00127000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00128000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00129000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00130000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00131000
C                                                                       00132000
C                                                                       00133000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00134000
C                                                                       00135000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00136000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00137000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00138000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00139000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00140000
     5SPAC14(35)                                                        00141000
C                                                                       00142000
C                                                                       00143000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00144000
C                                                                       00145000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00146000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00147000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00148000
C                                                                       00149000
C                                                                       00150000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00151000
C                                                                       00152000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00153000
     1SAVE(58)                                                          00154000
C                                                                       00155000
C                                                                       00156000
C ***         PAGE NO.24  ,LOC 2201 TO 2330 + SPACE(20)                 00157000
C                                                                       00158000
      COMMON     GWIND(10) , GWP(10) , ATMIN7(10), CLWP(10) , TIN7(10), 00159000
     1DELFEP(10),AHOP(10)  , TOWP(10), AN2M7(10) , DELVP(10), VMAXP(10),00160000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00161000
C                                                                       00162000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00163000
C                                                                       00164000
C ***         PAGE N0.25  , LOC 2351 TO 2428  +  SPACE(22)              00165000
C                                                                       00166000
       COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6) ,  FMER(10,6),00167000
     1SPAC17(22)                                                        00168000
C                                                                       00169000
C                                                                       00170000
C ****         COMMON    MAIN                                           00171000
C                                                                       00172000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00173000
     1R         ,ST        ,H        ,OPTION                            00174000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00175000
     1BHPP      ,TP        ,TL        ,SEE                              00176000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00177000
      COMMON     NEXT      ,DTOR      ,RTOD                             00178000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00179000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00180000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00181000
C                                                                       00182000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00183000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00184000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00185000
     2FWR       ,TLEA      ,NLLIM                                       00186000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00187000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00188000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00189000
C                                                                       00190000
C                   AERO                      AERO                      00191000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00192000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00193000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00194000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00195000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00196000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00197000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00198000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00199000
C                                                                       00200000
C                   ATMOS                     ATMOS                     00201000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00202000
      COMMON     RHO       ,S2RHO                                       00203000
C                                                                       00204000
C                   CHGFW                     CHGFW                     00205000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00206000
C                                                                       00207000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00208000
C                                                                       00209000
C                   CLIMB                     CLIMB                     00210000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00211000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00212000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00213000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00214000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00215000
      COMMON    V1      ,INDEX3      ,IOPTH                             00216000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00217000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00218000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00219000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00220000
C                                                                       00221000
C                   DRAG                      DRAG                      00222000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00223000
C                                                                       00224000
C                   DSCNT                     DSCNT                     00225000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00226000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00227000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00228000
      COMMON     T                                                      00229000
C                                                                       00230000
C                   ENGSZ                     ENGSZ                     00231000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00232000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00233000
      COMMON     P         ,ANXMAX                                      00234000
C                                                                       00235000
C                   LOITR                     LOITR                     00236000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00237000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00238000
C                                                                       00239000
C                   SIZTR                     SIZTR                     00240000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00241000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00242000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00243000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00244000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00245000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00246000
C                                                                       00247000
C                   TAXI                      TAXI                      00248000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00249000
C                                                                       00250000
C                   TOHL                      TOHL                      00251000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00252000
C                                                                       00253000
C                   WGHTR                     WGHTR                     00254000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00255000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00256000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00257000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00258000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00259000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00260000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00261000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00262000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00263000
     1EMDEMD(10),PEHFPE(10)                                             00264000
      DIMENSION DATA(1)                                                 00265000
      COMMON/ODD/A0,A1,A2,BB0,BB1,BB2,RJ3,CPOW3,ETAI3,RJ4,CPOW4,        00266000
     1 ETAI4,AMACH,CLLL,CLGAM,CPOW33,CTI3,CTI4,GMDD1,GAMD11             00267000
      COMMON/KAYDON/LL1,LL2,BHPRCR,BHPRTO                               00268000
C **  KAYDON IS FOUND IN ENGSZ; VARIABLES ARE USED FOR PRINT PURPOSES   00269000
      COMMON/KAGS/ATGP(10),TINGP(10)                                    00270000
C **  KAGS IS PASSED TO PRFRP TO BE USED IN CALL ATMOS STATEMENT        00271000
      EQUIVALENCE (DATA(1),OPTIND)                                      00272000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00273000
      DATA OO3(1,2)/4H MAX/, OO3(2,2)/4HIMUM/
      DATA OO3(1,3)/4HMILI/, OO3(2,3)/4HTARY/
      DATA OO3(1,4)/4H NOR/, OO3(2,4)/4HMAL /
C                                                                       00274000
C     *** INITIALIZE  DATA                                              00275000
C     NOMINAL VALUES                                                    00276000
C                        EVERY INPUT VAR. INIT. TO 0.                   00277000
C                    *** EXCEPT CK1  THRU  CK21 TO 1.                   00278000
C                                                                       00279000
C                                                                       00280000
C                                                                       00281000
      DO 2867 I=1,2450                                                  00282000
 2867 DATA(I) = 0.0                                                     00283000
      CK1 = 1.0                                                         00284000
      CKFF = 1.0                                                        00285000
      XMSMRT = 1.0                                                      00286000
      SHPTO = 1.0                                                       00287000
      CKRC = 2.0                                                        00288000
      LL1 = 0                                                           00289000
      LL2 = 0                                                           00290000
      DO 21667  I=410,416                                               00291000
      DATA(I) = 1.0                                                     00292000
      DATA(I+23) = 1.0                                                  00293000
21667 DATA(I+49) = 1.0                                                  00294000
      DATA(416)  = 0.0                                                  00295000
      TOL=.01                                                           00296000
      DLWFN1= 0.                                                        00297000
      WG1   = 0.                                                        00298000
      KKKONT = 0                                                        00299000
      DO 1914 I = 1,10                                                  00300000
      BNFUEL(I) = 0.0                                                   00301000
      BNLNG(I) = 0.0                                                    00302000
 1914 BLKTIM(I) = 0.0                                                   00303000
 1771 CONTINUE                                                          00304000
C     *** AT THIS POINT (RE)INITIALIZE AND THEN CALL LOADET             00305000
      WGA = SAVE(29)                                                    00306000
      CTSIG = SAVE(30)                                                  00307000
      IGOOF = 0                                                         00308000
      IIIX = 0                                                          00309000
      IAERO=0                                                           00310000
      OPTIND = OPTWAS                                                   00311000
      NEXT = 0                                                          00312000
      IST = 0                                                           00313000
      OPTOPT = 0.0                                                      00314000
      INOPTH = 0                                                        00315000
      SAVE(24)=1.                                                       00316000
      DTOR     = .01745329                                              00317000
      RTOD     =57.2957795                                              00318000
      CALL ERRSET(207,256,0,0)                                          00319000
      CALL ERRSET(209,256,0,0)                                          00320000
      CALL ERRSET(210,256,0,0)                                          00321000
      CALL ERRSET(253,256,0,0)                                          00322000
      CALL ERRSET(258,256,0,0)                                          00323000
      CALL LOADET (DATA,1)                                              00324000
      SAVE(29) = WGA                                                    00325000
      SAVE(30) = CTSIG                                                  00326000
      IF(CYCPRP.EQ.CYCPRL) GO TO 2868                                   00327000
      WRITE(6,2869) CYCPRP,CYCPRL                                       00328000
 2869 FORMAT(9X48H*** ERROR  THE USER REQUESTED PRIMARY ENGINE NO.,F9.3 00329000
     1      /9X47H       BUT THE INPUT DECK WAS SET UP TO USE NO.,F9.3) 00330000
      GO TO 1771                                                        00331000
 2868 IF ((DNITFL.EQ.0.0).OR.(CYCLFP.EQ.CYCLFL)) GO TO 2872             00332000
      WRITE(6,2871) CYCLFP,CYCLFL                                       00333000
 2871 FORMAT(9X45H*** ERROR  THE USER REQUESTED LIFT ENGINE NO.,F9.3    00334000
     1      /9X47H       BUT THE INPUT DECK WAS SET UP TO USE NO.,F9.3) 00335000
      GO TO 1771                                                        00336000
 2872 IF ((ETAIND.NE.1.0).OR.(CYPROP.EQ.PROPCY)) GO TO 2870             00337000
      WRITE(6,2873) CYPROP,PROPCY                                       00338000
 2873 FORMAT(9X44H*** ERROR  THE USER REQUESTED PROP TABLE NO.,F9.3     00339000
     1      /9X47H       BUT THE INPUT DECK WAS SET UP TO USE NO.,F9.3) 00340000
      GO TO 1771                                                        00341000
 2870 IF((SGTIND(1).NE.0.).AND.(SGTIND(1).NE.100.).AND.(SGTIND(1).NE.5.)00342000
     1         )                                            GO TO 100   00343000
      IF (SGTIND(1).NE.5.)  GO TO  102                                  00344000
      IF((DESIND(1).EQ.2.).OR.(DESIND(1).GE.4.))            GO TO 100   00345000
  102 WRITE(6,1003)                                                     00346000
 1003 FORMAT(9X,53HERROR *** THE FIRST SEGMENT INDICATOR OF A MISSION   00347000
     1/9X,56H    CANNOT BE 0.,100.OR 5.(DESCIND=1,3) SEE USERS MANUAL)  00348000
                                                           GO TO  1771  00349000
  100 DO 11852   I=2,50                                                 00350000
      KARA=0                                                            00351000
      IF (SGTIND(I).EQ.100.)                                GO TO 11853 00352000
      IF(.NOT.((SGTIND(I).EQ.0.).AND.((SGTIND(I+1).EQ.0.).OR.(SGTIND(I+100353000
     1).EQ.5.))))                                          GO TO    48  00354000
      JARA = I+1                                                        00355000
      DO  4848  LARA=1,JARA                                             00356000
 4848 IF(SGTIND(LARA).EQ.5.) KARA = KARA + 1                            00357000
      IF((DESIND(KARA).EQ.2.).OR.(DESIND(KARA).GE.4.))      GO TO 48    00358000
      WRITE(6,1003)                                                     00359000
                                                           GO TO  1771  00360000
   48 IF(SGTIND(I).NE.5.)                                  GO TO 11852  00361000
      JARA = I                                                          00362000
      DO 4849   LARA=1,JARA                                             00363000
 4849 IF(SGTIND(LARA).EQ.5.) KARA = KARA + 1                            00364000
      IF((DESIND(KARA).EQ.2.).OR.(DESIND(KARA).GE.4.))      GO TO 11852 00365000
      IF(SGTIND(I-1).EQ.4.)                                GO TO 11852  00366000
      WRITE (6,1004)                                                    00367000
 1004 FORMAT(9X,51H*** ERROR DESCENTS 1&3 MUST BE PRECEDED BY A CRUISE) 00368000
                                                           GO TO  1771  00369000
11852 CONTINUE                                                          00370000
11853 CONTINUE                                                          00371000
      DO  500  I=1,10                                                   00372000
      ATGP(I) = ATMIN7(I)                                               00373000
      ATMIND(I)    = ATMIN1(I)                                          00374000
      ATMIND(I+10) = ATMIN2(I)                                          00375000
      ATMIND(I+20) = ATMIN3(I)                                          00376000
      ATMIND(I+30) = ATMIN4(I)                                          00377000
      ATMIND(I+40) = ATMIN5(I)                                          00378000
      ATMIND(I+50) = ATMIN6(I)                                          00379000
      TIN(I)       = TIN1(I)                                            00380000
      TIN(I+10)    = TIN2(I)                                            00381000
      TIN(I+20)    = TIN3(I)                                            00382000
      TIN(I+30)    = TIN4(I)                                            00383000
      TIN(I+40)    = TIN5(I)                                            00384000
      TIN(I+50)    = TIN6(I)                                            00385000
      TINGP(I) = TIN7(I)                                                00386000
      DELH(I)      = DELH3(I)                                           00387000
      DELH(I+10)   = DELH5(I)                                           00388000
  500 CONTINUE                                                          00389000
      IF (ETAIND.NE.2.0) GO TO 67                                       00390000
      DO 69 I=1,16                                                      00391000
      GMDD1(I) = BB0(I)+CLEYE*(BB1(I) + CLEYE*BB2(I))                   00392000
 69   CONTINUE                                                          00393000
      DO 77 J=1,3                                                       00394000
      DO 77 K=1,15                                                      00395000
      GAMD11(J,K) = A0(J,K) + CLEYE*(A1(J,K) + CLEYE*A2(J,K))           00396000
 77   CONTINUE                                                          00397000
 67   RLMC4 = DLMC4*DTOR                                                00398000
      AR   =DAM2                                                        00399000
      CBARD=DAM3                                                        00400000
      WGS  =DAM4                                                        00401000
      ELF  =DAM5                                                        00402000
      SF   =DAM6                                                        00403000
      BHPP =DAM7                                                        00404000
      TP   =DAM8                                                        00405000
      TL   =DAM9                                                        00406000
      SEE  =DAM10                                                       00407000
      SHT = AAW11                                                       00408000
      SVT = AAW12                                                       00409000
      WG = WG00                                                         00410000
      H  = H00                                                          00411000
      R  = R00                                                          00412000
      ST = ST00                                                         00413000
      V  = 0.                                                           00414000
      OPTWAS=OPTIND                                                     00415000
      NETAP4=ETAP4N                                                     00416000
      NTH    = THN       +.0001                                         00417000
      NTCL   = TCLN      +.0001                                         00418000
      NTCL2  = TCL2N     +.0001                                         00419000
      NTEM   = TENN      +.0001                                         00420000
      IWD   =  WDTIND    +.0001                                         00421000
      IN1   =  AN1IND    +.0001                                         00422000
      IN2   =  AN2IND    +.0001                                         00423000
      IN3   =  AN3IND    +.0001                                         00424000
      IQ    =  QIND      +.0001                                         00425000
      IRN   =  RNOIND    +.0001                                         00426000
      NMS   =  UMS       +.0001                                         00427000
      NTS   =  UNTS      +.0001                                         00428000
      NMW   =  UMW       +.0001                                         00429000
      NTW   =  UNTW      +.0001                                         00430000
      NM1   =  UNM1      +.0001                                         00431000
      NT1   =  UNT1      +.0001                                         00432000
      NM2   =  UNM2      +.0001                                         00433000
      NT2   =  UNT2      +.0001                                         00434000
      LWD   =  VWDIND    +.0001                                         00435000
      LN1   =  VN1IND    +.0001                                         00436000
      LN2   =  VN2IND    +.0001                                         00437000
      INDDRG = DRGIND    +.0001                                         00438000
      INDESZ = ESZIND    +.0001                                         00439000
      INDENG = ENGIND    +.0001                                         00440000
      INDLFT = DNITFL    +.0001                                         00441000
      KPRINT = TNIRPK + 0.01                                            00442000
      IVLMT = VLMIND + 0.01                                             00443000
      NGLIND = DNILGN + 0.01                                            00444000
      IOPTH = HOPTIN + 0.01                                             00445000
      LAVIND = DNIVAL + 0.01                                            00446000
      KKROPT = SPACE1(23) + 0.01                                        00447000
      WG1 = WG                                                          00448000
      PI = 3.14159                                                      00449000
      IF (OPTIND.EQ.3.0) GO TO 16                                       00450000
      IF(OPTIND.EQ.2.)                                     GO TO     1  00451000
      OPTION = 1.0                                                      00452000
    2 CALL SIZTR(IST)                                                   00453000
      CALL AERO(IAERO)                                                  00454000
      IF(FIXIND.NE.1.0) GO TO 6666                                      00455000
      CALL ENGSZ                                                        00456000
      IF(IST/2.NE.IIIX+1) GO TO 2                                       00457000
 6666 IF(NEXT.NE.0) GO TO 55                                            00458000
      WRITE(6,919) WG1,WFA,WFR                                          00459000
 919  FORMAT(T10,*WG = *,E12.6,2X,*WFA = *,E12.6,2X,*WFR = *,E12.6)     00460000
      IF(FIXIND.EQ.1.0) GO TO 4971                                      00461000
C **  BELOW IS THE CODE TO SIZE TRANSMISSIONS WITH FIXED SIZE ENGINES   00462000
C **  IN SIZING XMSN WITH FIXIND = 0 AND XMSND = 1, THE INPUT LOCATIONS 00463000
C     FOR ENGINE SIZING MUST BE FILLED OUT. THIS IS NECESSARY IN ORDER  00464000
C     FOR THE PROGRAM TO CALCULATE THE POWERS REQUIRED FOR TAKEOFF AND  00465000
C     CRUISE                                                            00466000
      IF(ENGIND.EQ.1.0) GO TO 4971                                      00467000
      IF(ENGIND.EQ.2.0) GO TO 4973                                      00468000
C **  IF ENGIND = 2.0, THE TRANSMISSION CAN BE SIZED AT A SPECIFIED     00469000
C     FRACTION OF INSTALLED POWER (XMSND = 0), OR IF XMSND = 1, THE XMSN00470000
C     WILL BE SIZED FOR THE TAKEOFF POWER REQUIRED                      00471000
      IF(XMSND.EQ.1.0) GO TO 4972                                       00472000
      BHPXMS = BHPP * XMSMRT                                            00473000
      ANXMAX = AN2TO                                                    00474000
      LL1 = 1                                                           00475000
C **  LL1 IS AN INDICATOR USED FOR PRINTOUT PURPOSES IN PROPULSION DATA 00476000
C **  IT WAS ASSUMED THAT INSTALLED POWER WAS MORE CRITICAL AT HOVER    00477000
      GO TO 4971                                                        00478000
 4972 HH = HES                                                          00479000
      YALE22 = 1.0                                                      00480000
      CALL ATMOS(HH,YALE22,TINY)                                        00481000
      DSHPRC = WG * VRCRC/(33000. * CKRC)                               00482000
      BHPRTO=SQRT(SENE**3)*WG*SQRT(WGA)/(550.*S2RHO*SHPTO*ETAT*ETAP2)   00483000
     1   + (DSHPAC + DSHPRC)/(SHPTO)                                    00484000
      HH = HC                                                           00485000
      CALL ATMOS(HH,YALE22,ATMIY)                                       00486000
      V = VC                                                            00487000
      Q = 1.42636*RHO*V**2                                              00488000
      CL = WG/(SW*Q)                                                    00489000
      EM = V/SA                                                         00490000
      CALL DRAG                                                         00491000
      P = AN2CR * AN2CR * VT                                            00492000
      CALL POWAVL(TMAX,0.0)                                             00493000
      BLP = SHPA                                                        00494000
      IF(ETAIND.EQ.0.0) GO TO 2003                                      00495000
      TPROP = CD * SW * Q                                               00496000
      IF(ETAIND.EQ.2.0) GO TO 91                                        00497000
      REALJ = 1.689 * PI * V/P                                          00498000
      CCT=TPROP*WGA*PI**3/(0.009507*SIGMA*P**2*WG)                      00499000
      IF(ETAIND.NE.3.0) GO TO 46                                        00500000
      EM = V/SA                                                         00501000
      TOAD = TPROP * WGA/(WG*DELTA)                                     00502000
      HPADTH=XLKUP(EM,TOAD,XJP,NOXJP,CPPROP,NOCPP,CTPROP,20,20,IX,IY)   00503000
      CCP = HPADTH * 5634966.0/(P/STHETA)**3                            00504000
      GO TO 47                                                          00505000
   46 CCP = XLKUP(REALJ,CCT,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)  00506000
   47 IF(IX.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1009)                       00507000
      IF(IX.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1005)                       00508000
      IF(IY.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1010)                       00509000
      IF(IY.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1006)                       00510000
 1009 FORMAT(9X,*THIS ERROR IS IN THE J PART OF THE PROPELLER POWER*,   00511000
     1* COEFFICIENT TABLE DUE TO FIXED SIZE ENGINES - SUBROUTINE MAIN*) 00512000
 1005 FORMAT(9X,*THIS ERROR IS IN THE M PART OF THE FAN COEFFICIENT*,   00513000
     1* TABLE DUE TO FIXED SIZE ENGINES - SUBROUTINE MAIN*)             00514000
 1010 FORMAT(9X,*THIS ERROR IS IN THE CT PART OF THE PROPELLER POWER*,  00515000
     1* COEFFICIENT TABLE DUE TO FIXED SIZE ENGINES - SUBROUTINE MAIN*) 00516000
 1006 FORMAT(9X,*THIS ERROR IS IN THE FN PART OF THE FAN COEFFICIENT*,  00517000
     1* TABLE DUE TO FIXED SIZE ENGINES - SUBROUTINE MAIN*)             00518000
      ETAP = REALJ * CCT/CCP                                            00519000
      ETAP4 = ETAP                                                      00520000
      GO TO 2010                                                        00521000
   91 ITER = 0                                                          00522000
      ETA = 0.85                                                        00523000
      TPROP1 = TPROP                                                    00524000
      BHPACR = (CD*SW*Q*V/(325.8*ETAT) + DSHPAC)/(DELTA*STHETA*BLP)     00525000
      BHPP4 = BHPP                                                      00526000
  92  ITER = ITER + 1                                                   00527000
      BHPP = BHPACR/ETA                                                 00528000
      ETA1 = ETA                                                        00529000
      TP1 = TPROP                                                       00530000
      CALL THRUST(TPROP,1.0,ETAP)                                       00531000
      ETA2 = ETAP                                                       00532000
      TP2 = TPROP                                                       00533000
      IF(ABS(1.0 - TPROP/TPROP1).LE.0.005) GO TO 93                     00534000
      ETA = ETAP                                                        00535000
      IF(ITER.GT.1) ETA = ETA2 + (TPROP1 - TP2)*(ETA2-ETA1)/(TP2-TP1)   00536000
      IF(ITER.GT.25) GO TO 84                                           00537000
      GO TO 92                                                          00538000
   93 BHPRCR = BHPP * DELTA * STHETA * BLP                              00539000
      BHPP = BHPP4                                                      00540000
      GO TO 2004                                                        00541000
 2003 ETAP4 = XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                           00542000
      IF(M.NE.0) WRITE(6,1001)                                          00543000
 1001 FORMAT(22X,*THIS ERROR IS IN THE ETAP4-M TABLE ASSOCIATED WITH FIX00544000
     1ED SIZE ENGINES - SUBROUTINE MAIN*)                               00545000
 2010 BHPRCR = CD*SW*Q*V/(325.8*ETAT*ETAP4) + DSHPAC                    00546000
 2004 BHPXMS = BHPRTO * XMSMRT                                          00547000
      ANXMAX = AN2TO                                                    00548000
      LL1 = 1                                                           00549000
      IF(BHPRCR/AN2CR.LE.BHPRTO/AN2TO) GO TO 4971                       00550000
      BHPXMS = BHPRCR * XMSMRT                                          00551000
      ANXMAX = AN2CR                                                    00552000
      LL2 = 2                                                           00553000
      GO TO 4971                                                        00554000
 4973 HH = HES                                                          00555000
      YALE22 = 1.0                                                      00556000
      CALL ATMOS(HH,YALE22,TINY)                                        00557000
      TPXMSN = TP * XMSMRT                                              00558000
      ANXMAX = AN2TO                                                    00559000
      LL1 = 1                                                           00560000
      IF(XMSND.EQ.0.0) GO TO 4971                                       00561000
      TPRTO = BETA*SENE**1.5*WG*WGA**0.5/(550.*ETAP2*ETAT*SHPTO*S2RHO)  00562000
     1  + BETA*(DSHPAC + DSHPRC)/SHPTO                                  00563000
      TPXMSN = XMSMRT * TPRTO                                           00564000
      LL1 = 1                                                           00565000
 4971 CONTINUE                                                          00566000
      CALL WGHTR                                                        00567000
    3 IF(OPTIND.EQ.0) GO TO 55                                          00568000
      H   = H00                                                         00569000
      ST  = ST00                                                        00570000
      R   = R00                                                         00571000
      V  = 0.                                                           00572000
      IF (OPTOPT.EQ.1.0) OPTIND = 1.0                                   00573000
      CALL PRFRM                                                        00574000
      IF(NEXT.NE.0)                                        GO TO    55  00575000
C     *** IF OPTIND.EQ.2.,PRINT IN EACH MISSION SUBTOUTINE              00576000
C     SAVE(25) = SGTIND COMING OUT OF PRFRM ALWAYS = 0. OR 100.         00577000
      IF (OPTOPT.EQ.1.0) GO TO 33                                       00578000
      IF (OPTIND.EQ.2.0.AND.SAVE(25).EQ.100.) GO TO 1921                00579000
      IF (OPTIND.EQ.2.0.AND.OPTOPT.EQ.0.0) GO TO 506                    00580000
 33   IIIX = IIIX + 1                                                   00581000
      IF(WFR.GT.0.)                                        GO TO  4899  00582000
      NEXT = 1                                                          00583000
      WRITE(6,501)                                                      00584000
  501 FORMAT(/9X70H***ERROR  WFR   WEIGHT OF FUEL REQUIRED IS LESS THAN 00585000
     1OR EQUAL TO ZERO./)                                               00586000
                                                            GO TO    55 00587000
 4899 IF((ABS(1.-WFA/WFR).LE.TOL).OR.(IIIX.GE.25))          GO TO     5 00588000
      DLWFN = WFA - WFR                                                 00589000
      IF (IIIX.EQ.1) GO TO 319                                          00590000
      PD    = (DLWFN -DLWFN1) / (WG - WG1)                              00591000
 319  IF (IIIX.EQ.1) PD = 0.7                                           00592000
      WG1   = WG                                                        00593000
      WG    = WG - DLWFN / PD                                           00594000
      DLWFN1= DLWFN                                                     00595000
      IF (OPTOPT.EQ.1.0) GO TO 19                                       00596000
      IF (WG.GT.0.)                                         GO TO     2 00597000
      IF (IGOOF.EQ.0)                                       GO TO 502   00598000
      WRITE(6,503)                                                      00599000
  503 FORMAT(/9X,85H***ERROR  FUEL AVAILABLE AND FUEL REQUIRED DO NOT CO00600000
     1NVERGE AT A POSITIVE GROSS WEIGHT)                                00601000
      NEXT = 1                                                          00602000
                                                           GO TO    55  00603000
  502 WG  = WG00 /2.                                                    00604000
      IGOOF = 1                                                         00605000
                                                           GO TO     2  00606000
 16   WOVSS = WGS                                                       00607000
      WOVAS = WGA                                                       00608000
      GO TO 17                                                          00609000
 1    OPTION = 2.0                                                      00610000
      GO TO 34                                                          00611000
 19   WGS = WOVSS*(WG/WG00)                                             00612000
      WGA = WOVAS*(WG/WG00)                                             00613000
 17   WFA = WG - OWE1 - WPL                                             00614000
      WRITE(6,508) WG,WGS,WGA,WG00,WOVSS,WOVAS,WFA,WFR                  00615000
 508  FORMAT(10X,*WG    = *,E14.7,5X,*WGS   = *,E14.7/10X,              00616000
     1  *WGA   = *,E14.7,5X,*WG00  = *,E14.7/10X,                       00617000
     2  *WOVSS = *,E14.7,5X,*WOVAS = *,E14.7/10X,                       00618000
     3  *WFA   = *,E14.7,5X,*WFR   = *,E14.7)                           00619000
      OPTIND = 2.0                                                      00620000
      OPTOPT = 1.0                                                      00621000
 34   CALL AERO(IAERO)                                                  00622000
      DEBAR = XI4 * ((BHPP/ENP)**.5)                                    00623000
                                                           GO TO     3  00624000
 5    IF (OPTOPT.EQ.0.0) GO TO 18                                       00625000
      OPTOPT = 0.0                                                      00626000
      OPTIND = 2.0                                                      00627000
      GO TO 3                                                           00628000
 18   OPTIND = 2.0                                                      00629000
      IF (IIIX.GE.25) WRITE(6,504) WFA,WFR,TOL                          00630000
  504 FORMAT(/2X101H**********  THIS AIRCRAFT HAS NOT CONVERGED AFTER 2500631000
     1 ATTEMPTS.  THE WEIGHT OF FUEL AVAILABLE (WFA) = ,E14.7/14X,36HTHE00632000
     2 WEIGHT OF FUEL REQUIRED (WFR) = ,E14.7,5X,21H(WFA) MUST BE WITHIN00633000
     3 ,F5.4, 26H OF (WFR) FOR THE AIRCRAFT/14X,83HTO CONVERGE. THIS TOL00634000
     4ERANCE IS SET IN THE MAIN PROGRAM UNDER THE VARIABLE NAME TOL.)   00635000
   84 IF(ITER.GT.25) NEXT = 1                                           00636000
      IF(IIIX.GE.25) NEXT = 1                                           00637000
   55 WE = WP + WFC + WST + WFE                                         00638000
      OWE= WE + WFUL                                                    00639000
      IF(FIXIND.EQ.0.0.AND.NEXT.EQ.1) WRITE(6,3254)                     00640000
 3254 FORMAT(/22X,*THE NUMBER OF ITERATIONS FOR TRANSMISSION SIZING *,  00641000
     1*FOR FIXED SIZE ENGINES EXCEEDED 25*/22X,*SUBROUTINE MAIN, CASE*, 00642000
     2* TERMINATED*)                                                    00643000
      IF(NEXT.NE.0) WRITE(6,555)                                        00644000
  555 FORMAT(//9X119HTHE PRECEEDING ERROR HAS CAUSED THIS CASE TO TERMIN00645000
     1ATE.  THE ERROR MESSAGE SHOULD INDICATE AT WHAT POINT IN THE PROGR00646000
     2AM/5X120HTHE ERROR OCCURRED.  THE FOLLOWING INFORMATION, ALONG WIT00647000
     3H A FLOW CHART, SHOULD ENABLE AN ASTUTE USER TO FIND HIS ERROR.//300648000
     40X,57HTHE FOLLOWING ARE THE CURRENT VALUES CALCULATED IN SIZING/3000649000
     5X,59HTHEY ARE BY NO MEANS THE FINAL VALUES BUT RATHER THE VALUES/300650000
     60X,42HBEING USED AT THE TIME THE ERROR OCCURRED. )                00651000
      IF (OPTWAS.EQ.3.0) GO TO 23                                       00652000
      GO TO 24                                                          00653000
 23   WG = WG00                                                         00654000
      WGS = WOVSS                                                       00655000
      WGA = WOVAS                                                       00656000
 24   CALL LOADET(SS,2)                                                 00657000
      IF (OPTWAS.EQ.2.0.OR.OPTWAS.EQ.3.0) GO TO 5555                    00658000
      IF (KKROPT.NE.0) WGSAVE = WG                                      00659000
      WRITE(6,9901) IIIX, WG, ELF, SWF ,SF                              00660000
 9901 FORMAT(///7X40HS I Z E  D A T A  THIS RUN CONVERGED IN ,I2,11H ITE00661000
     1RATIONS//41X14HGROSS WEIGHT =,F8.0,4H  LB//16X,8HFUSELAGE/20X2HLF100662000
     X3X,6HLENGTH29X,F10.1,5X2HFT/20X2HWF13X5HWIDTH30X,F10.1,5X2HFT/    00663000
     2                       20X2HSF13X11HWETTED AREA24X,F10.0,5X4HSQFT)00664000
      WRITE(6,9902) AR, SW, B, CBARW, DLMC4, SLM, TCR, TCT, WGS         00665000
 9902 FORMAT(/16X4HWING/20X2HAR13X12HASPECT RATIO23XF10.2,5X/20X2HSW13X400666000
     1HAREA31X,F10.1,5X4HSQFT/20X1HB14X4HSPAN31X,F10.1,5X2HFT/          00667000
     220X 5HCBARW10X16HGEOM. MEAN CHORD19X,F10.1,5X2HFT/                00668000
     320X10HLAMBDA C/45X19HQUARTER CHORD SWEEP16X,F10.1,5X3HDEG/        00669000
     420X10HLAMBDA    5X19HTAPER RATIO        16X,F10.3,5X/             00670000
     520X10H(T/C)R    5X19HROOT THICKNESS     16X,F10.3,5X/             00671000
     620X10H(T/C)T    5X19HTIP  THICKNESS     16X,F10.3,5X/             00672000
     720X10HWG/SW     5X19HWING LOADING       16X,F10.1,5X7HLB/SQFT)    00673000
      IF(WDMIND.NE.0..OR.ENGIND.NE.1.)WRITE(6,9903)CBARD                00674000
 9903 FORMAT(20X9HC BAR / D6X23HMEAN CHORD / PROP. DIA.12X,F10.3)       00675000
      WRITE(6,9904) ARHT,SHT,BHT,CBARHT,TCHT                            00676000
 9904 FORMAT(/16X,9HHOR. TAIL/                                          00677000
     120X10HARHT      5X17HASPECT RATIO     18X,F10.2/                  00678000
     220X10HSHT       5X17HAREA             18X,F10.1,5X4HSQFT/         00679000
     320X10HBHT       5X17HSPAN             18X,F10.1,5X2HFT/           00680000
     420X10HCBARHT    5X17HMEAN CHORD       18X,F10.1,5X2HFT/           00681000
     520X10H(T/C)HT   5X17HTHICKNESS / CHORD18X,F10.3)                  00682000
      IF (HTIND.EQ.1.) WRITE(6,9804) ELTH                               00683000
 9804 FORMAT(20X10HLTH       5X17HMOMENT ARM       18X,F10.1,5X2HFT)    00684000
      WRITE(6,9905) ARVT,SVT,BVT,CBARVT,TCVT                            00685000
 9905 FORMAT(/16X10HVERT. TAIL/                                         00686000
     120X10HARVT      5X17HASPECT RATIO     18X,F10.2/                  00687000
     220X10HSVT       5X17HAREA             18X,F10.1,5X4HSQFT/         00688000
     320X10HBVT       5X17HSPAN             18X,F10.1,5X2HFT/           00689000
     420X10HCBARVT    5X17HMEAN CHORD       18X,F10.1,5X2HFT/           00690000
     520X10H(T/C)VT   5X17HTHICKNESS / CHORD18X,F10.3)                  00691000
      IF(VTIND.EQ.1.) WRITE(6,9805) ELTV                                00692000
 9805 FORMAT(20X10HLTV       5X17HMOMENT ARM       18X,F10.1,5X2HFT)    00693000
      WRITE(6,9806) ELN,DBARN, SN                                       00694000
 9806 FORMAT(//16X20HPRIMARY ENG. NACELLE/                              00695000
     120X10HLN        5X17HLENGTH           18X,F10.1,5X2HFT/           00696000
     220X10HDBARN     5X17HMEAN DIAMETER    18X,F10.1,5X2HFT/           00697000
     320X10HSN        5X17HWETTED AREA      18X,F10.1,5X4HSQRT//        00698000
     916X17HLIFT ENG. NACELLE)                                          00699000
      IF(DNITFL.EQ.1.) GO TO 22367                                      00700000
      WRITE(6,9906)                                                     00701000
 9906 FORMAT(35X31HNO LIFT PROPULSION SELECTED    )                     00702000
      GO TO 22368                                                       00703000
22367 ELNG=DBARLN*(ENL/ENC+EPSLON)                                      00704000
      WRITE(6,9907) ELNG,ELLN,DBARLN,SLN                                00705000
 9907 FORMAT(20X3HLNG12X17HLENGTH           18X,F10.1,5X2HFT/           00706000
     A20X3HLLN12X17HDEPTH            18X,F10.1,5X2HFT/                  00707000
     120X10HDBARLN    5X17HMEAN DIAMETER    18X,F10.0,5X2HFT/           00708000
     220X10HSLN       5X17HWETTED AREA      18X,F10.0,5X4HSQFT)         00709000
22368 IF(ENGIND.EQ.1.) GO TO 22369                                      00710000
      WRITE(6,9908) D,SIGRP,WGA,CTSIG,ENR,BLDN                          00711000
 9908 FORMAT(/16X9HPROPELLER/                                           00712000
     120X10HD         5X25HDIAMETER                 10X,F10.1,5X2HFT/   00713000
     220X10HSIGMA R/P 5X25HSOLIDITY                 10X,F10.3/          00714000
     320X10HWG/A      5X25HDISC LOADING             10X,F10.1,5X7HLB/SQF00715000
     4T/20X,8HCT/SIGMA7X25HTHRUST COEFF. / SOLIDITY 10X,F10.3/          00716000
     520X,2HNR13X17HNO. OF PROPELLERS,18X,F10.3/                        00717000
     620X10HNO. BLADES,5X18HNO. OF BLADES/PROP,17X,F10.3)               00718000
      GO TO 22370                                                       00719000
22369 WRITE(6,9909)                                                     00720000
 9909 FORMAT(/16X9HPROPELLER//35X30HNO PROPELLER ON THIS AIRCRAFT )     00721000
22370 IF (FDMIND.NE.2.0) GO TO 9984                                     00722000
      RNLAVS = NLAVS                                                    00723000
      IF (LAVIND.EQ.1) RNLAVS = ANLAVS                                  00724000
      CALL LOADET(SS,2)                                                 00725000
      WRITE(6,9971)                                                     00726000
 9971 FORMAT(///7X,41HP A S S E N G E R   S I Z I N G   D A T A//       00727000
     1 37X31HTOURIST             FIRST CLASS/37X31H-------             -00728000
     2----------)                                                       00729000
      WRITE(6,9972) ANPXT,ANPX1,ANABT,ANAB1,ANISLT,ANISL1,              00730000
     1 WSEATT,WSEAT1,PSEATT,PSEAT1,WAISLT,WAISL1                        00731000
 9972 FORMAT(20X,17HNO. OF PASS.     ,F4.0,16X,F4.0/                    00732000
     1       20X,18HNO. ABREAST       ,F3.0,17X,F3.0/                   00733000
     2       20X,18HNO.OF AISLES      ,F3.0,17X,F3.0/                   00734000
     3       20X,18HUNIT SEAT WIDTH   ,F3.0,4H IN.,13X,F3.0,4H IN./     00735000
     4       20X,18HSEAT PITCH        ,F3.0,4H IN.,13X,F3.0,4H IN./     00736000
     5       20X,18HAISLE WIDTH       ,F3.0,4H IN.,13X,F3.0,4H IN.//)   00737000
      WRITE(6,9973) RNLAVS                                              00738000
 9973 FORMAT(24X,26HNUMBER OF LAVATORIES      ,F5.2)                    00739000
      WRITE(6,9974) AGALLY                                              00740000
 9974 FORMAT(24X,25HGALLEY AREA              ,F5.1,8H SQ. FT.)          00741000
      WRITE(6,9976) ACL                                                 00742000
 9976 FORMAT(24X,25HCLOSET AREA              ,F5.1,8H SQ. FT.)          00743000
      IF (PREC1.EQ.1) GO TO 9979                                        00744000
      WRITE(6,9977) DCDC                                                00745000
 9977 FORMAT(24X,25HCABIN DIAMETER           ,F5.1,33H IN.     *** FIRST00746000
     1 CLASS CRITICAL)                                                  00747000
      WRITE(6,9978) DBDB                                                00748000
 9978 FORMAT(24X,25HBODY DIAMETER            ,F5.1,33H IN.     *** FIRST00749000
     1 CLASS CRITICAL//)                                                00750000
      GO TO 9980                                                        00751000
 9979 WRITE(6,9981) DCDC                                                00752000
 9981 FORMAT(24X,25HCABIN DIAMETER           ,F5.1,35H IN.     *** TOURI00753000
     1ST CLASS CRITICAL)                                                00754000
      WRITE(6,9982) DBDB                                                00755000
 9982 FORMAT(24X,25HBODY DIAMETER            ,F5.1,35H IN.     *** TOURI00756000
     1ST CLASS CRITICAL//)                                              00757000
 9980 WRITE(6,9983) ELP,ELT,ELC,ELF                                     00758000
 9983 FORMAT(24X,25HNOSE SECTION LENGTH      ,F5.1,4H FT./              00759000
     1       24X,25HTAIL SECTION LENGTH      ,F5.1,4H FT./              00760000
     2       24X,25HCONST. DIA. LENGTH       ,F5.1,4H FT./              00761000
     3     22X,27HTOTAL FUSELAGE LENGTH      ,F5.1,4H FT.)              00762000
 9984 CALL LOADET(SS,2)                                                 00763000
      WRITE(6,9910) GLF                                                 00764000
 9910 FORMAT(///7X32HW E I G H T S  D A T A    IN LBS//                 00765000
     120X3HGLF12X19HGUST LOAD    FACTOR15X,F10.3)                       00766000
      WRITE(6,9912) WW,WHT,WVT,WB,WLG,WLES,WPES,DELWST,WST              00767000
 9912 FORMAT(/16X16HSTRUCTURES GROUP/                                   00768000
     120X10HK8  WW    5X35HWING                               ,F10.0/   00769000
     220X10HK9  WHT   5X35HHOR. TAIL                          ,F10.0/   00770000
     320X10HK10 WVT   5X35HVERT. TAIL                         ,F10.0/   00771000
     420X10HK11 WB    5X35HFUSELAGE                           ,F10.0/   00772000
     520X10HK12 WLG   5X35HLANDING GEAR                       ,F10.0/   00773000
     620X10HK13 WLES  5X35HLIFT ENGINE SECTION                ,F10.0/   00774000
     720X10HK14 WPES  5X35HPRIMARY ENGINE SECTION             ,F10.0/   00775000
     820X10HDELTA WST 5X35HSTRUCTURE WEIGHT INCREMENT         ,F10.0/   00776000
     920X10HWST       5X35HTOTAL STRUCTURE WEIGHT             ,F10.0)   00777000
      WRITE(6,9911) WRP,WDS,WEL,WEP,WLEI,WPEI,WFSS,DELWP,WP             00778000
 9911 FORMAT(/16X16HPROPULSION GROUP/                                   00779000
     120X10HK2  WR/P  5X35HROTOR OR PROP                      ,F10.0/   00780000
     220X10HK3  WDS   5X35HDRIVE SYSTEM                       ,F10.0/   00781000
     320X10HK4  WEL   5X35HLIFT  ENGINES                      ,F10.0/   00782000
     420X10HK5  WEP   5X35HPRIMARY ENGINES                    ,F10.0/   00783000
     520X10HK6  WLEI  5X35HLIFT ENGINE INSTALLATION           ,F10.0/   00784000
     620X10HK7  WPEI  5X35HPRIMARY ENGINE INSTALLATION        ,F10.0/   00785000
     720X10HK21 WFS   5X35HFUEL SYSTEM                        ,F10.0/   00786000
     820X10HDELTA WP  5X35HPROPULSION GROUP WEIGHT INCREMENT  ,F10.0/   00787000
     920X10HWP        5X35HTOTAL PROPULSION GROUP WEIGHT      ,F10.0)   00788000
      WRITE(6,9913) WCC,WUC,WH,WCFW,WSAS,WTM,DELWF2,WFC                 00789000
 9913 FORMAT(/16X21HFLIGHT CONTROLS GROUP/                              00790000
     120X10HK15 WCC   5X25HCOCKPIT CONTROLS         10X,F10.0/          00791000
     220X10HK16 WUC   5X25HUPPER   CONTROLS         10X,F10.0/          00792000
     320X10HK17 WH    5X25HHYDRAULICS               10X,F10.0/          00793000
     420X10HK18 WFW   5X25HFIXED WING CONTROLS      10X,F10.0/          00794000
     520X10HK19 WSAS  5X25HSAS                      10X,F10.0/          00795000
     620X10HK20 WTM   5X25HTILT MECHANISM           10X,F10.0/          00796000
     720X10HDELTA WFC 5X25HCONTROL WEIGHT INCREMENT 10X,F10.0/          00797000
     820X10HWFC       5X25HTOTAL CONTROL WEIGHT     10X,F10.0)          00798000
      WRITE(6,511)    WFE                                               00799000
  511 FORMAT(/16X3HWFE16X25HWEIGHT OF FIXED EQUIPMENT10X,F10.0)         00800000
      WRITE(6,9914) WE,WFUL,OWE,WPL,WFA,WFW,WG                          00801000
 9914 FORMAT(/16X2HWE17X12HWEIGHT EMPTY23X,F10.0//                      00802000
     1        16X4HWFUL15X17HFIXED USEFUL LOAD18X,F10.0//               00803000
     2        16X3HOWE16X22HOPERATING WEIGHT EMPTY13X,F10.0//           00804000
     3        16X3HWPL16X7HPAYLOAD28X,F10.0//                           00805000
     416X5H(WF)A14X4HFUEL31X,F10.0,10X,5H(WF)W,10X,F10.0//              00806000
     5        16X2HWG17X12HGROSS WEIGHT23X,F10.0)                       00807000
      CALL LOADET(SS,2)                                                 00808000
      WRITE(6,9920) CYCPRP                                              00809000
 9920 FORMAT(///7X28HP R O P U L S I O N  D A T A/                      00810000
     1      16X28HPRIMARY PROPULSION CYCLE NO.,F9.3)                    00811000
      IF(CYCPRP.GE.1..AND.CYCPRP.LE.9.) WRITE(6,9921)                   00812000
      IF(CYCPRP.GE.10..AND.CYCPRP.LE.18.)WRITE(6,9922)                  00813000
      IF(CYCPRP.GE.19..AND.CYCPRP.LE.45.)WRITE(6,9923)                  00814000
 9921 FORMAT(24X17HTURBOSHAFT ENGINE)                                   00815000
 9922 FORMAT(24X17HTURBOJET   ENGINE)                                   00816000
 9923 FORMAT(24X17HTURBOFAN   ENGINE)                                   00817000
      WRITE(6,9924) ENP                                                 00818000
 9924 FORMAT(/24X,F3.0,2X,7HENGINES/)                                   00819000
      IF(ENGIND.NE.0.) WRITE(6,9925) TP                                 00820000
      IF(ENGIND.NE.1.) WRITE(6,9926) BHPP                               00821000
 9925 FORMAT(20X3HT*P12X32HMAX. STANDARD S.L. STATIC THRUST3X,F10.0,5X2H00822000
     1LB)                                                               00823000
 9926 FORMAT(20X5HBHP*P10X30HMAX. STANDARD S.L. STATIC H.P.5X,F10.0,5X4H00824000
     1H.P.)                                                             00825000
      YALE22 = 1.                                                       00826000
      CALL ATMOS (HES,YALE22,TINY)                                      00827000
      FTIN = THETA * 518.69  - 459.69                                   00828000
      IF(FIXIND.EQ.1.) GO TO 22467                                      00829000
      WRITE(6,9934)                                                     00830000
      GO TO 22499                                                       00831000
22467 IF(DNITFL.EQ.0.) GO TO 22468                                      00832000
22470 YALE22 = 1.                                                       00833000
      CALL ATMOS (HC,YALE22,ATMIY)                                      00834000
      FTINH = THETA * 518.69  - 459.69                                  00835000
      WRITE(6,9933) VC,HC,FTINH                                         00836000
      GO TO22499                                                        00837000
22468 HVSIZ = SHPTO*100                                                 00838000
      PWSET = 0                                                         00839000
      IF (TMAX.EQ.TMIL) PWSET=1                                         00840000
      DO 2008 I = 1,2                                                   00841000
      IF (PWSET-1.0) 2005,2006,2007                                     00842000
 2005 OO3(I,1) = OO3(I,2)                                               00843000
      GO TO 2008                                                        00844000
 2006 OO3(I,1) = OO3(I,3)                                               00845000
      GO TO 2008                                                        00846000
 2007 OO3(I,1) = OO3(I,4)                                               00847000
 2008 CONTINUE                                                          00848000
      IF(ESZIND.EQ.1.) GO TO 22469                                      00849000
      WRITE(6,9931) SENE, HVSIZ,(OO3(I,1),I=1,2),VRCRC,HES, FTIN, ENP0  00850000
      WRITE(6,9932)                                                     00851000
      GO TO 22499                                                       00852000
22469 IF((ENGIND.EQ.0.).AND.(BHPP2.GT.BHPP1)) GO TO 22470               00853000
      IF((ENGIND.NE.0.).AND.(TP2.GT.TP1))     GO TO 22470               00854000
      WRITE(6,9931) SENE, HVSIZ,(OO3(I,1),I=1,2),VRCRC,HES, FTIN, ENP0  00855000
 9931 FORMAT(/20X,*ENGINE SIZED FOR TAKEOFF AT T/W = *,F4.2,/20X,       00856000
     1F5.1,1X,*PERCENT,*,2A4,1X,*POWER SETTING*,/20X,*VERTICAL RATE OF*,00857000
     2* CLIMB = *,F6.1,* FT/MIN*,/20X,*H =*,F7.0,* FT,*,* TEMPERATURE*, 00858000
     3* =*,F6.2,* DEG F,*,/20X,*AND *,F6.3,*ENGINES INOPERATIVE.*)      00859000
 9934 FORMAT(/20X30HENGINE SIZE WAS FIXED BY INPUT)                     00860000
 9932 FORMAT( 20X30HNO CRUISE CONDITION SPECIFIED.)                     00861000
 9933 FORMAT(/20X32HENGINE SIZED FOR CRUISE AT VC = ,F4.0, 7H KNOTS,/   00862000
     1        20X,5HHC = ,F6.0,19H FT, TEMPERATURE = ,F6.2, 7H DEG F.)  00863000
22499 CONTINUE                                                          00864000
      IF(DNITFL.NE.0.) GO TO 22867                                      00865000
      WRITE(6,9950)                                                     00866000
 9950 FORMAT(//16X29HNO LIFT ENGINE CYCLE SELECTED)                     00867000
      GO TO 3967                                                        00868000
22867 WRITE(6,9951) CYCLFP                                              00869000
      IF(CYCLFP.GE.46..AND.CYCLFP.LE.54.) WRITE(6,9952)                 00870000
      IF(CYCLFP.GE.55..AND.CYCLFP.LE.81.) WRITE(6,9953)                 00871000
      WRITE(6,9954) ENL, ENC                                            00872000
 9951 FORMAT(//16X21HLIFT ENGINE CYCLE NO.,F9.3)                        00873000
 9952 FORMAT(24X20HLIFT TURBOFAN ENGINE)                                00874000
 9953 FORMAT(24X20HLIFT FAN      ENGINE)                                00875000
 9954 FORMAT(16X,F3.0,2X11HENGINES IN ,F3.0,9H CLUSTERS)                00876000
      WRITE(6,31767) TL                                                 00877000
31767 FORMAT(20X3HT*L12X32HMAX. STANDARD S.L. STATIC THRUST3X,F10.0,5X2H00878000
     1LB)                                                               00879000
      IF (FIXIND.NE.0.) GO TO 512                                       00880000
      WRITE(6,9955)                                                     00881000
 9955 FORMAT(/16X30HENGINE SIZE WAS FIXED BY INPUT)                     00882000
      GO TO 3967                                                        00883000
C     SAVE(23) = 100. * DELTAY * TLP    FROM ENGSZ                      00884000
 512  IF (INDLFT.EQ.1.AND.ENP.EQ.ENP0) SAVE(23) = 0.0                   00885000
      HVSIZ = SHPTO * 100.0                                             00886000
      WRITE(6,9956) SENE,HVSIZ,SAVE(23)                                 00887000
 9956 FORMAT(/16X,*ENGINE SIZED FOR TAKEOFF WITH T/W = *,F4.2,*.,*/16X, 00888000
     1F5.1,* PERCENT POWER,*/16X,*AUGMENTED BY PRIMARY PROPULSION OF *, 00889000
     2F4.0,*PER CENT*)                                                  00890000
C **  VERTICAL RATE OF CLIMB FOR ENGINE SIZING WITH LIFT AND TURBOFAN   00891000
C     ENGINES IS PRINTED OUT UNDER THE TURBOFAN SIZING DATA AND NOT THE 00892000
C     LIFT ENGINE DATA. IF ONLY LIFT ENGINES ARE USED FOR TAKEOFF, A    00893000
C     HIGHER T/W SHOULD BE INPUT TO ACCOUNT FOR THE ADDITIONAL THRUST   00894000
C     NECESSARY TO CLIMB AT THE SPECIFIED VERTICAL RATE (LOC.0261)      00895000
C     SAVE(22) =TL  CALCULATED IN ENGSZ                                 00896000
C     SAVE(21) =TL1 CALCULATED IN ENGSZ                                 00897000
      IF(SAVE(22).GT.SAVE(21)) WRITE(6,9957) ENL0                       00898000
      IF(SAVE(22).LT.SAVE(21)) WRITE(6,9958) ENP0                       00899000
      IF(SAVE(22).EQ.SAVE(21)) WRITE(6,9959) ENP0, ENL0                 00900000
 9957 FORMAT(/24X29HCRITICAL SIZING CONDITION IS ,F6.3,25H LIFT ENGINES 00901000
     1INOPERATIVE)                                                      00902000
 9958 FORMAT(/24X29HCRITICAL SIZING CONDITION IS ,F6.3,28H PRIMARY ENGIN00903000
     1ES INOPERATIVE)                                                   00904000
 9959 FORMAT(/24X36HCRITICAL SIZING CONDITION IS EITHER ,F6.3,28H PRIMAR00905000
     1Y ENGINES INOPERATIVE/57X,3HOR ,F6.3,24HLIFT ENGINES INOPERATIVE) 00906000
 3967 CONTINUE                                                          00907000
      IF(LL1.EQ.0) GO TO 2464                                           00908000
      PRHVM=ANXMAX/AN2TO*100                                            00909000
      XXMSMR=XMSMRT*100                                                 00910000
      IF(XMSND.EQ.0.0)                                                  00911000
     1WRITE(6,10001)XXMSMR,PRHVM                                        00912000
      IF(XMSND.EQ.0.0) GO TO 2464                                       00913000
      IF(ENGIND.EQ.2.0) GO TO 3941                                      00914000
      PERBHP = BHPRTO                                                   00915000
      IF(BHPRCR.GT.BHPRTO) PERBHP = BHPRCR                              00916000
      IF(ABS((BHPRCR-BHPRTO)/PERBHP).LE.0.01) GO TO 10004               00917000
 3941 CONTINUE                                                          00918000
      IF(XMSND.EQ.1.0.AND.LL1.EQ.1)                                     00919000
     1WRITE(6,10002)XXMSMR,HES,FTIN,PRHVM                               00920000
      IF(XMSND.EQ.1.0.AND.LL2.EQ.2)                                     00921000
     1WRITE(6,10003) XXMSMR,VC,HC,FTINH,PRHVM                           00922000
10001 FORMAT(/16X,*XMSN SIZED AT*,F5.0,1X,                              00923000
     1*PERCENT OF TOTAL PRIMARY ENGINE INSTALLED POWER*/16X,            00924000
     2*(MAX.STANDARD S.L. STATIC H.P.),*F5.1,1X,                        00925000
     3*PERCENT HOVER RPM*)                                              00926000
10002 FORMAT(/16X,*XMSN SIZED AT*,F5.0 ,                                00927000
     1* PERCENT OF ROTOR HOVER POWER REQUIRED*/16X,                     00928000
     2*AT H=*,F6.0,* FT,TEMP=*,F6.2 ,* DEG.F.,*,F5.1,1X,                00929000
     3* PERCENT HOVER RPM*)                                             00930000
10003 FORMAT(/16X,*XMSN SIZED AT*,F5.0,1X,                              00931000
     1*PERCENT OF ROTOR CRUISE POWER REQUIRED AT VC=*,F4.0,1X,          00932000
     2*KT,*,/16X,*HC=*,F6.0,*FT, TEMP=*,F6.2,* DEG.F., *,               00933000
     3F5.1,1X,*PERCENT HOVER RPM*)                                      00934000
      GO TO 2464                                                        00935000
10004 WRITE (6,10005)                                                   00936000
10005 FORMAT(/16X,*POWER REQUIRED TO HOVER IS WITHIN 1 PERCENT OF*/     00937000
     1 16X,*CRUISE POWER REQUIRED AT DESIGN CONDITIONS*)                00938000
      WRITE (6,10002) XXMSMR,HES,FTIN,PRHVM                             00939000
 2464 CALL LOADET(SS,2)                                                 00940000
      WRITE(6,9960)                                                     00941000
 9960 FORMAT(///7X32HA E R O D Y N A M I C S  D A T A)                  00942000
      WRITE(6,9961) FE, SWET, CBARF                                     00943000
 9961 FORMAT(20X,2HFE13X30HTOTAL EFFECTIVE FLATPLATE AREA5X,F10.3,5X4HSQ00944000
     1FT    /20X,4HSWET11X17HTOTAL WETTED AREA18X,F10.0,5X4HSQFT        00945000
     2      /20X,5HCBARF10X25HMEAN SKIN FRICTION COEFF.10X,F10.6)       00946000
      WRITE(6,9962)                                                     00947000
 9962 FORMAT(/7X26HD R A G  B R E A K D O W N10X,9HIN  SQFT )           00948000
      WRITE(6,9963) FEW,FEF,FEVT,FEHT,FEN,FELN,DLTAFE                   00949000
 9963 FORMAT(20X,3HFEW12X,7HWING FE28X,F10.3 /                          00950000
     1       20X,3HFEF12X11HFUSELAGE FE24X,F10.3/                       00951000
     2       20X,4HFEVT11X13HVERT. TAIL FE22X,F10.3/                    00952000
     3       20X,4HFEHT11X13HHOR.  TAIL FE22X,F10.3/                    00953000
     4       20X,3HFEN12X23HPRIMARY ENG. NACELLE FE12X,F10.3/           00954000
     5       20X,4HFELN11X20HLIFT ENG. NACELLE FE15X,F10.3/             00955000
     6       20X,8HDELTA FE7X14HINCREMENTAL FE21X,F10.3/)               00956000
                                                           GO TO  5555  00957000
C     SAVE(24) = NO. OF TIMES ENTERING PRFRM WITHIN ONE RUN.            00958000
  506 SAVE(24)  = SAVE(24) +1.0                                         00959000
      OPTION = 2.0                                                      00960000
                                                           GO TO     3  00961000
 5555 WRITE(6,516)                                                      00962000
  516 FORMAT(7X34HA E R O D Y N A M I C  C O E F F .)                   00963000
      IF(DRGIND.EQ.0.) WRITE(6,518) SA1,SA2,SA3,SA4                     00964000
  518 FORMAT(20X2HA148X,F10.5/20X2HA248X,F10.5/20X2HA348X,F10.5/20X2HA4400965000
     18X,F10.5)                                                         00966000
      WRITE(6,519) SA5,SA6,SA7,CLALPH                                   00967000
  519 FORMAT(20X2HA548X,F10.5/20X2HA648X,F10.5/20X2HA748X,F10.5/20X,8HCL00968000
     1 ALPHA7X14H3-D LIFT SLOPE21X,F10.5,5X10HPER RADIAN)               00969000
      IF (OSWIND.EQ.1.) WRITE(6,520) SEE                                00970000
  520 FORMAT(20X1HE14X15HOSWALD   FACTOR20X,F10.5)                      00971000
      IF (OPTIND.EQ.0) GO TO 1771                                       00972000
      IF(NEXT.EQ.0)                                        GO TO     3  00973000
 1921 IF (KKROPT.EQ.0) GO TO 1771                                       00974000
      KKKONT = KKKONT + 1                                               00975000
      IF (KKKONT.LE.10) GO TO 1916                                      00976000
      WRITE(6,1915)                                                     00977000
 1915 FORMAT(10X,*NUMBER OF CASES REQ. EXCEEDS 10,NO OUTPUT GENERATED*) 00978000
      GO TO 1771                                                        00979000
 1916 BNFUEL(KKKONT) = WF                                               00980000
      BNLNG(KKKONT) = R                                                 00981000
      BLKTIM(KKKONT) = ST                                               00982000
      RUDY = BHPP                                                       00983000
      IF (ENGIND.NE.0.) RUDY = TP                                       00984000
      IF(KKROPT.EQ.2) WRITE(2)                                          00985000
     1 WRP,WDS,WEL,WEP,WLEI,WPEI,WFSS,DELWP,WP,WW,WHT,WVT,WB,           00986000
     2 WLG,WLES,WPES,DELWST,WST,WCC,WUC,WH,WCFW,WSAS,WTM,DELWF2,        00987000
     3 WFC,WFE,WE,WFUL,OWE,WPL,WFA,WGSAVE,ENP,CYCPRP,RUDY,ENL,          00988000
     4 TL,VC,BNLNG,BNFUEL,BLKTIM                                        00989000
      GO TO 1771                                                        00990000
      END                                                               00991000
      SUBROUTINE AERO(IAERO)                                            00001000
C**** MEMBER NAME = B93TAERO                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***          PAGE NO. 24  LOC.2201 TO 2330 + SPACE(20)                00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
 1001 FORMAT(22X,34HTHIS ERROR IS IN THE CL,CDWI TABLE)                 00257000
      IAERO = IAERO + 1                                                 00258000
      RLMC4 =  DLMC4 * DTOR                                             00259000
      YALE05=(1.-SLM)/(1.+SLM)                                          00260000
      T     =  SIN(RLMC4)/COS(RLMC4)                                    00261000
C ***  SAVE(26) = SEC(SQUARED) LAMBDA ,C/2                              00262000
      SAVE(26) = 1.0 +(T -YALE05/AR)**2                                 00263000
      IF(OPTIND.NE.2.) GO TO 100                                        00264000
      B=SQRT(AR*WG/WGS)                                                 00265000
      SW=WG/WGS                                                         00266000
      SIGS = AF*BLDN/4900.                                              00267000
  100 IF(DRGIND.EQ.1.) GO TO 16                                         00268000
      IF((OPTIND.EQ.2.).OR.(WDMIND.NE.0.)) GO TO 12                     00269000
      IF(IAERO.NE.1)   GO TO 15                                         00270000
   12 DLMPS  = ATAN( T -4./AR *(XCPS -.25)* YALE05) * RTOD              00271000
      DLMTCX = ATAN( T - 4./AR*(XCTCM-.25) *YALE05)*RTOD                00272000
      SA2   = -.33* (.65 -XCPS)*(1. +.0033*(4.*DLMPS- 3.*DLMTCX))       00273000
      RLMLE = ATAN( T + YALE05/AR)                                      00274000
      FK    = 1./(1. + YALE05 /AR * 4.* SLM**2)                         00275000
   15 TC   =((TCR -SWF/B *(TCR-TCT))*(1.-SWF/B *(1.-SLM))+ SLM * TCT)   00276000
     1     / (1.+SLM -SWF/B * (1.-SLM))                                 00277000
      SA1=(1. + .0033 * (4.*DLMPS - 3.*DLMTCX)) *                       00278000
     1     (1. -1.4  * TC - .06*(1.-XCPS)) -.0368                       00279000
      SA3   = (1.5 - 2. * FK**2 * SIN(RLMLE)**2)* TC**(5./3.)           00280000
      SA4   = .75 * TC                                                  00281000
   16 IF(OPTIND.EQ.2.) GO TO 209                                        00282000
      REF   = RELI * ELF                                                00283000
      FFRE  =  (ALOG10(REF) / 7.0)**(-2.6)                              00284000
      GO TO 17                                                          00285000
  209 IF(OSWIND.EQ.1.) SEE = .94 - .045 * AR**.68                       00286000
      SA5   = DELCD                                                     00287000
      SA6   = CKW                                                       00288000
      SA7   = 1./(3.1415926 * SEE * AR)                                 00289000
      ARPI   = 3.141593 * AR                                            00290000
      CLALPH = ARPI /(1.+SQRT((ARPI/CSLALF)**2*(SAVE(26)-.75*EMM0**2)+  00291000
     11.0))                                                             00292000
      RETURN                                                            00293000
   17 REW   = RELI * CBARW                                              00294000
      FWRE  =  (ALOG10(REW) / 7.0)**(-2.6)                              00295000
      FNRE  = 0.                                                        00296000
      IF(CKN.EQ.0.) GO TO 219                                           00297000
      REN   = RELI * ELN                                                00298000
      FNRE  =  (ALOG10(REN) / 7.0)**(-2.6)                              00299000
  219 FVTRE = 0.                                                        00300000
      IF(CBARVT.EQ.0.) GO TO 229                                        00301000
      REVT  = RELI * CBARVT                                             00302000
      FVTRE =  (ALOG10(REVT)/ 7.0)**(-2.6)                              00303000
  229 FHTRE =0.                                                         00304000
      IF(CBARHT.EQ.0.) GO TO 239                                        00305000
      REHT  = RELI * CBARHT                                             00306000
      FHTRE =  (ALOG10(REHT)/ 7.0)**(-2.6)                              00307000
  239 FLNRE =0.                                                         00308000
      IF(CKLN.EQ.0.) GO TO 249                                          00309000
      RELN  = RELI * DBARLN * (ENL/ENC + EPSLON)                        00310000
      FLNRE = 0.                                                        00311000
      IF(RELN.EQ.0.) GO TO 249                                          00312000
      FLNRE =  (ALOG10(RELN)/ 7.0)**(-2.6)                              00313000
  249 IF(OSWIND.EQ.1.) SEE = .94 - .045 * AR**.68                       00314000
      SA5   = (.00287 * CKF*SF+DELFE) *FFRE/SW +CKVT*SVT/SW*CDVTI*FVTRE 00315000
     1      +CKHT*SHT/SW*CDHTI*FHTRE + CKN*SN/SW*CDNI*FNRE +CKLN*SLN/SW*00316000
     2       CDLNI*FLNRE +DELCD                                         00317000
      SA6   =  CKW * FWRE                                               00318000
      SA7   =  1. /(3.1415926 * SEE * AR)                               00319000
      ARPI = 3.141593 *AR                                               00320000
      CLALPH=ARPI/(1.+SQRT((ARPI/CSLALF)**2*(SAVE(26)-.75*EMM0**2)+1.)) 00321000
      DLMELE = RLMLE * RTOD                                             00322000
      IF (DNITFL.EQ.0.0)  SLN = 0.0                                     00323000
      IF (CKN.EQ.0.) SN=0.                                              00324000
      SWET= SF + SN + SLN + 2.*(SVT +SHT +SW) -2.*CBARW *SWF *(1. -.5*  00325000
     1      SWF/B + .5*SLM *SWF/B) /(1.+SLM) + DLSWSW * SW              00326000
      FEW = SW* XLINT(TBCL1,TBCDWI,0.,NTCL,M) * CKW                     00327000
      FEW=FEW*FWRE                                                      00328000
      IF(M.NE.0)WRITE(6,1001)                                           00329000
      FEF =(.00287 *CKF * SF + DELFE) * FFRE                            00330000
      FEVT= CKVT * SVT * CDVTI * FVTRE                                  00331000
      FEHT= CKHT * SHT * CDHTI * FHTRE                                  00332000
      FEN = CKN  * SN  * CDNI  * FNRE                                   00333000
      FELN= CKLN * SLN * CDLNI * FLNRE                                  00334000
      DLTAFE= DELCD * SW                                                00335000
      FE= FEW +FEF +FEVT +FEHT +FEN +FELN +DLTAFE                       00336000
      CBARF= FE / SWET                                                  00337000
      RETURN                                                            00338000
      END                                                               00339000
      SUBROUTINE ATMOS(HH,ATM333,TIN333)                                00001000
C**** MEMBER NAME = B93TATMO                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***          PAGE NO. 24   LOC. 2201 TO 2330 + SPACE(20)              00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      TIN33 = TIN333                                                    00257000
      INDATM = ATM333                                                   00258000
      IF (INDATM.EQ.0) TIN33 = 0.0                                      00259000
      IF(INDATM - 1) 1,1,2                                              00260000
    1 THETA = .7519 + TIN33 / 518.69                                    00261000
    6 DELTA = .22336 * EXP((36089.- HH)/20786.)                         00262000
      IF(HH.GT.36089.) GO TO 4                                          00263000
      THETA = 1. - .000006875 * HH + TIN33 / 518.69                     00264000
      DELTA = (1. - .000006875 * HH)**5.2561                            00265000
    4 SIGMA = DELTA / THETA                                             00266000
      STHETA = SQRT(THETA)                                              00267000
      SA     = 661.7 * STHETA                                           00268000
      RHO    = .0023769 * SIGMA                                         00269000
      S2RHO  = SQRT( 2.*RHO)                                            00270000
      RETURN                                                            00271000
    2 THETA  = XLINT(TBH,TBTHE,HH,NTH,M)                                00272000
      IF(M.NE.0) WRITE (6,3000)                                         00273000
 3000 FORMAT(22X,34HTHIS ERROR IS IN THE H-THETA TABLE/)                00274000
      IF(HH.GT.36089.) GO TO 6                                          00275000
      DELTA = (1. - .000006875 * HH)**5.2561                            00276000
      GO TO 4                                                           00277000
      END                                                               00278000
      FUNCTION BIV(XARG,YARG,XTAB,YTAB,ZTAB,NXARG,NYARG,NXI,NYJ)        00001000
C**** MEMBER NAME = B93TBIV                                             00002000
      DIMENSION ZTAB(NXI,NYJ),XTAB(1),YTAB(1)                           00003000
      VAL(A,B,C,D)=(A*(A-B-C)+B*C)/(D*(D-B-C)+B*C)                      00004000
C     XTAB AND YTAB DIMENSIONS ARE DUMMY BUT Z IS CRITICAL              00005000
C     IT MUST AGREE WITH THE DIMENSION IN THE CALLING PROGRAM           00006000
C     LOCATE THE X VALUE                                                00007000
C     IS XARG LESS THAN FIRST VALUE IN TABLE                            00008000
    1 IF (XARG-XTAB(1))2,3,3                                            00009000
C     YES-USE FIRST 3 VALUES IN TABLE                                   00010000
    2  J=1                                                              00011000
      GO TO 9                                                           00012000
C     NO-FIND WHICH 2 ARGUMENTS XARG IS BETWEEN                         00013000
    3 DO 5 I=2,NXARG                                                    00014000
      K=I                                                               00015000
    4 IF(XARG-XTAB(I))6,6,5                                             00016000
    5 CONTINUE                                                          00017000
C     ARE WE AT END OF TABLE                                            00018000
    6 I=K                                                               00019000
      IF(I-NXARG) 8,7,8                                                 00020000
C     YES-USE LAST 3 TABLE VALUES                                       00021000
    7 J=NXARG-2                                                         00022000
      GO TO 9                                                           00023000
C     NO-USE 3 SURROUNDING VALUES                                       00024000
    8 J=I-1                                                             00025000
C     FIND WHERE YARG LIES IN TABLE                                     00026000
C     IS YARG LESS THAN FIRST VALUE OF TABLE                            00027000
    9 IF (YARG-YTAB(1))10,11,11                                         00028000
C     YES-USE FIRST 3 VALUES IN TABLE                                   00029000
   10 L=1                                                               00030000
      GO TO 17                                                          00031000
C     NO-FIND WHERE YARG LIES                                           00032000
   11 DO 13 I=2,NYARG                                                   00033000
      K=I                                                               00034000
   12 IF (YARG-YTAB(I))14,14,13                                         00035000
   13 CONTINUE                                                          00036000
C     ARE WE AT END OF TABLE                                            00037000
   14 I=K                                                               00038000
      IF(I-NYARG) 16,15,16                                              00039000
C     YES-USE LAST 3 VALUES IN TABLE                                    00040000
   15 L=NYARG-2                                                         00041000
      GO TO 17                                                          00042000
C     NO-USE 3 SURROUNDING VALUES                                       00043000
   16 L=I-1                                                             00044000
C     SET UP FOR INTERPOLATION                                          00045000
   17 JJ=J+1                                                            00046000
      JJJ=J+2                                                           00047000
      LL=L+1                                                            00048000
      LLL=L+2                                                           00049000
C     EVALUATE FY1(X)                                                   00050000
   18 FY11=VAL(XARG,XTAB(JJ),XTAB(JJJ),XTAB(J))                         00051000
      FY12=VAL(XARG,XTAB(J),XTAB(JJJ),XTAB(JJ))                         00052000
      FY13=VAL(XARG,XTAB(J),XTAB(JJ),XTAB(JJJ))                         00053000
      FY1=FY11*ZTAB(J,L)+FY12*ZTAB(JJ,L)+FY13*ZTAB(JJJ,L)               00054000
C     EVALUATE FY2(X)                                                   00055000
   19 FY2=FY11*ZTAB(J,LL)+FY12*ZTAB(JJ,LL)+FY13*ZTAB(JJJ,LL)            00056000
C     EVALUATE FY3(X)                                                   00057000
   20 FY3=FY11*ZTAB(J,LLL)+FY12*ZTAB(JJ,LLL)+FY13*ZTAB(JJJ,LLL)         00058000
C     EVALUATE F(Y)-FINAL ANSWER                                        00059000
   21 BIV=(VAL(YARG,YTAB(LL),YTAB(LLL),YTAB(L))*FY1)+                   00060000
     1(VAL(YARG,YTAB(L),YTAB(LLL),YTAB(LL))*FY2)+                       00061000
     2(VAL(YARG,YTAB(L),YTAB(LL),YTAB(LLL))*FY3)                        00062000
      RETURN                                                            00063000
      END                                                               00064000
      BLOCK DATA                                                        00001000
C**** MEMBER NAME = B93TBLKD                                            00002000
      DIMENSION A0(3,15),A1(3,15),A2(3,15),BB0(16),BB1(16),BB2(16),     00003000
     1 RJ3(10),CPOW3(10),ETAI3(10,10),RJ4(10),CPOW4(10),ETAI4(10,10),   00004000
     2AMACH(3),CLLL(15),CLGAM(16),CPOW33(20),CTI3(20),CTI4(20),         00005000
     3 GMDD1(16),GAMD11(3,15)                                           00006000
      COMMON/ODD/A0,A1,A2,BB0,BB1,BB2,RJ3,CPOW3,ETAI3,RJ4,CPOW4,        00007000
     1 ETAI4,AMACH,CLLL,CLGAM,CPOW33,CTI3,CTI4,GMDD1,GAMD11             00008000
      DATA A0/ 90.,90.,90.,7.0392,10.2148,11.3227,4.8350,8.3106,        00009000
     1 11.3355,3.2218,5.4623,8.3676,2.7551,4.0458,6.5856,2.481,         00010000
     2 3.9439,5.3862,2.4521,3.6769,5.2054,2.8149,3.8766,6.1902,         00011000
     3 3.8725,4.5901,8.153,5.6653,6.1044,10.1745,8.5799,8.9031,         00012000
     4 13.0822,12.25,12.2042,16.5344,17.0496,17.0398,20.8089,           00013000
     5 21.8332,22.784,25.6453,31.7062,28.7851,33.5049/                  00014000
      DATA A1/ 0.0,0.0,0.0,1.9949,2.4433,40.9515,-4.1639,-22.6338,      00015000
     1 -14.062,-1.7030,-14.9997,-12.2425,-2.5322,-9.9837,-9.574,        00016000
     2 -4.5422,-13.0524,-8.9808,-5.4949,-11.7146,-9.3153,-7.092,        00017000
     3 -12.0044,-14.7567,-10.861,-13.8756,-25.0375,-16.2691,-18.2607,   00018000
     4 -30.7342,-24.8115,-26.0958,-33.2211,-33.6185,-29.4588,-34.9378,  00019000
     5 -43.061,-37.3809,-40.6314,-47.8821,-47.3791,-49.145,-49.6246,    00020000
     6 -57.8217,-77.6449/                                               00021000
      DATA A2/ 0.0,0.0,0.0,61.2416,86.4731,21.9481,19.2195,56.0,        00022000
     1 62.0142,8.291,35.3636,36.0889,7.0366,23.0606,25.9573,7.3774,     00023000
     2 22.0028,18.6439,7.4251,17.3803,16.4063,8.3401,16.0882,23.2672,   00024000
     3 11.4678,17.2451,39.117,15.8093,21.8349,51.0509,22.6773,30.7056,  00025000
     4 58.1494,28.7271,34.1515,64.3529,33.8798,43.697,76.3927,33.6322,  00026000
     5 55.5455,94.4326,26.4923,68.2121,144.4176/                        00027000
      DATA BB0/ 90.,2.68,1.9141,1.513,1.5304,1.9611,2.7089,3.8237,      00028000
     1 5.051,7.3796,9.13,12.397,17.169,22.392,28.85,38.2/               00029000
      DATA BB1/ 0.0,-5.4836,-2.9393,-2.7523,-3.0648,-4.5374,            00030000
     1 -6.8293,-10.0965,-12.558,-18.5171,-19.35,-11.944,-10.883,        00031000
     2 -5.948,0.0,0.0/                                                  00032000
      DATA BB2/ 0.0,13.5125,8.012,5.8118,4.8132,5.3846,6.8072,          00033000
     1 9.3267,10.7333,15.8002,15.5,6.818,7.879,5.606,0.0,0.0/           00034000
      DATA RJ3/0.2,1.0,1.2,1.4,1.8,2.2,2.6,3.0,3.4,4.2/                 00035000
      DATA CPOW3/0.0,0.05,0.1,0.2,0.3,0.4,0.5,0.6,0.75,0.9/             00036000
      DATA ETAI3/10*1.0,0.74,0.937,0.954,0.9662,0.980,0.9862,0.9895,    00037000
     1 0.9912,0.9924,0.9962,0.621,0.896,0.920,0.939,0.961,0.973,0.9793, 00038000
     2 0.9827,0.985,0.9906,0.467,0.830,0.866,0.892,0.928,0.949,0.960,   00039000
     3 0.9664,0.9715,0.9794,0.342,0.772,0.819,0.851,0.896,0.926,0.9415, 00040000
     4 0.9486,0.956,0.9683,0.262,0.718,0.770,0.810,0.868,0.9044,0.9235, 00041000
     5 0.935,0.944,0.9575,0.206,0.666,0.728,0.773,0.839,0.882,0.9064,   00042000
     6 0.9204,0.9305,0.9456,0.168,0.615,0.684,0.736,0.816,0.8615,0.8885,00043000
     7 0.906,0.918,0.9345,0.126,0.541,0.615,0.679,0.779,0.830,0.8633,   00044000
     8 0.8848,0.8988,0.9175,0.096,0.471,0.547,0.620,0.743,0.803,0.8385, 00045000
     9 0.863,0.880,0.900/                                               00046000
      DATA RJ4/0.2,1.0,1.2,1.4,1.8,2.2,2.6,3.0,3.4,4.2/                 00047000
      DATA CPOW4/0.0,0.05,0.1,0.2,0.3,0.4,0.5,0.6,0.75,0.9/             00048000
      DATA ETAI4/10*1.0,0.668,0.935,0.959,0.968,0.9822,0.9875,0.9906,   00049000
     1 0.9925,0.9938,0.9956,0.542,0.898,0.929,0.946,0.9655,0.9755,0.981,00050000
     2 0.9846,0.987,0.9905,0.405,0.834,0.878,0.904,0.9355,0.954,0.964,  00051000
     3 0.9705,0.975,0.982,0.311,0.784,0.834,0.869,0.9095,0.9345,0.9484, 00052000
     4 0.9575,0.9646,0.9736,0.252,0.735,0.793,0.835,0.886,0.916,0.933,  00053000
     5 0.9445,0.9535,0.966,0.204,0.690,0.753,0.8025,0.862,0.8974,0.918, 00054000
     6 0.932,0.9436,0.9585,0.170,0.646,0.714,0.772,0.8415,0.8794,0.902, 00055000
     7 0.9195,0.933,0.9513,0.135,0.582,0.657,0.727,0.810,0.853,0.8796,  00056000
     8 0.9007,0.918,0.940,0.110,0.520,0.601,0.683,0.781,0.828,0.860,    00057000
     9 0.883,0.904,0.928/                                               00058000
      DATA AMACH/0.7,0.8,0.9/                                           00059000
      DATA CLLL/ 0.0,0.05,0.1,0.15,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,     00060000
     1 1.0,1.1,1.2/                                                     00061000
      DATA CLGAM/0.0,0.15,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,          00062000
     1 1.2,1.4,1.6,1.8,2.0/                                             00063000
      DATA CPOW33/ 0.0,0.005,0.01,0.02,0.03,0.04,0.06,0.08,0.12,0.16,   00064000
     1 0.20,0.24,0.28,0.32,0.36,0.40,0.44,0.48,0.52,0.60/               00065000
      DATA CTI3/0.0,0.0323,0.0523,0.082,0.1065,0.127,0.163,0.194,       00066000
     10.2475,0.2945,0.338,0.3773,0.4102,0.4368,0.4637,0.4912,0.517,     00067000
     2 0.539,0.5616,0.5958/                                             00068000
      DATA CTI4/0.0,.0345,.0545,.0838,0.1073,0.128,0.166,0.201,0.2556,  00069000
     1 0.3026,0.3462,0.3859,0.4208,0.4544,0.4871,0.514,0.539,0.5592,    00070000
     2 0.5824,0.6354/                                                   00071000
      END                                                               00072000
      SUBROUTINE CHGFW (IFUEL)                                          00001000
C**** MEMBER NAME = B93TCHGF                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24 LOC.2201 TO 2330  + SPACE(20)               00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  OO(2,3)                                                00257000
      DATA  OO(1,2)/4H ADD/ ,OO(2,2)/4H    /                            00258000
      DATA  OO(1,3)/4H REM/ ,OO(2,3)/4HOVE /                            00259000
      DO 2004 I=1,2                                                     00260000
      IF (DLTAWF(IFUEL))  2002,2001,2001                                00261000
 2001 OO(I,1)  = OO(I,2)                                                00262000
      GO TO 2004                                                        00263000
 2002 OO(I,1)  = OO(I,3)                                                00264000
 2004 CONTINUE                                                          00265000
      AAWA  = ABS(DLTAWF(IFUEL))                                        00266000
 9000 FORMAT(/7X16HCHANGE  FUEL,   ,2A4,1X,F7.0,2X,3HLB.)               00267000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,                                     00268000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,                00269000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT)               00270000
     5)                                                                 00271000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0)                       00272000
      IF (OPTIND.EQ.2.)                                                 00273000
     1WRITE(6,9000) OO(1,1),OO(2,1),AAWA                                00274000
      IF(OPTIND.EQ.2.)                                                  00275000
     1WRITE(6,9001)                                                     00276000
      IF(OPTIND.EQ.2.)                                                  00277000
     1WRITE(6,9002)ST,R,WF,W,H                                          00278000
      STORWF(IFUEL)= WF                                                 00279000
      STRWFL(IFUEL)= WFL                                                00280000
      WF = 0.                                                           00281000
      WFL=0.                                                            00282000
      W = W + DLTAWF(IFUEL)                                             00283000
      IF(OPTION.EQ.2.0.AND.WGTIND.EQ.1.0) GO TO 10                      00284000
      IF(W.GT.WG) W = WG                                                00285000
 10   ST = ST + STFW(IFUEL)                                             00286000
      IF(OPTIND.EQ.2.)                                                  00287000
     1WRITE(6,9002)ST,R,WF,W,H                                          00288000
      RETURN                                                            00289000
      END                                                               00290000
      SUBROUTINE CHGPL(ICHGPL)                                          00001000
C**** MEMBER NAME = B93TCHGP                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24  LOC. 2201 TO LOC. 2330 + SPACE(20)         00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  OO(2,3)                                                00257000
      DATA  OO(1,2)/4H ADD/ ,OO(2,2)/4H    /                            00258000
      DATA  OO(1,3)/4H REM/ ,OO(2,3)/4HOVE /                            00259000
      DO 2004 I=1,2                                                     00260000
      IF (DELWPL(ICHGPL)) 2002,2001,2001                                00261000
 2001 OO(I,1)  = OO(I,2)                                                00262000
      GO TO 2004                                                        00263000
 2002 OO(I,1)  = OO(I,3)                                                00264000
 2004 CONTINUE                                                          00265000
      AAWA  = ABS(DELWPL(ICHGPL))                                       00266000
 9000 FORMAT(/7X16HCHANGE PAYLOAD, ,2A4,1X,F7.0,2X,3HLB.)               00267000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,                                     00268000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,                00269000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT)               00270000
     5)                                                                 00271000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0)                       00272000
      IF (OPTIND.EQ.2.)                                                 00273000
     1WRITE(6,9000) OO(1,1),OO(2,1),AAWA                                00274000
      IF(OPTIND.EQ.2.)                                                  00275000
     1WRITE(6,9001)                                                     00276000
      IF(OPTIND.EQ.2.)                                                  00277000
     1WRITE(6,9002)ST,R,WF,W,H                                          00278000
      W=W+DELWPL(ICHGPL)                                                00279000
      IF(OPTION.EQ.2.0.AND.WGTIND.EQ.1.0) GO TO 10                      00280000
      IF(W.GT.WG) W = WG                                                00281000
 10   ST = ST + STPW(ICHGPL)                                            00282000
      IF(OPTIND.EQ.2.)                                                  00283000
     1WRITE(6,9002)ST,R,WF,W,H                                          00284000
      RETURN                                                            00285000
      END                                                               00286000
      SUBROUTINE CLIMB(ICLIMB)                                          00001000
C**** MEMBER NAME = B93CLIMB                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24  LOC. 2201 TO LOC. 2330 + SPACE(20)         00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25.  , LOC 2351 TO 2428  +  SPACE(22)             00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      DIMENSION DATA(1)                                                 00257000
      DIMENSION OO1(3,4),OO3(2,4)                                       00258000
      EQUIVALENCE (DATA(1),OPTIND)                                      00259000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00260000
      DIMENSION  EO(7)                                                  00261000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00262000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00263000
      NAMELIST/NCLIMB/INDATM,DELTAH,LC1,LC2,LC3,LC4,V2,RGAM1,RGAM3,EM,Q,00264000
     1CL,PHI,ENGIND,BLP,BHPA,RCPOW,TLP,TA,RC1,RGAM2,RCTETA,RGAM4,THETAF,00265000
     2GAMMA,RGAMMA,SFC,F,TSFC,V,RC,EAS,PEHF,PETF,H,NQUO,YALE22,H9,R,W,V100266000
     3,ST,WF,KCLIMB,V11,V22,V33,RCP1,RCP2,RCP3,RCT1,RCT2,RCT3           00267000
     4,RCTA,RCPA,VRCTA,VRCPA,KKK,TPEA,EM,NPLIM,SHPA,WSHPA               00268000
 9000 FORMAT(/7X10HCLIMB  TO ,F6.0,2X,10HFT. WITH  ,3A4,2X,3HAT ,       00269000
     1    2A4,2X,13HENGINE RATING)                                      00270000
 9003 FORMAT(/7X41HCLIMB TO OPT. ALT. FOR NEXT CRUISE WITH  ,           00271000
     1 3A4,2X,3HAT ,2A4,2X,                                             00272000
     228HENGINE RATING, MAXIMUM ALT. ,F6.0,4H FT.)                      00273000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00274000
     19X5HTHETA,                                                        00275000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00276000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,3X5HGAMMA,4X2H-F,5X    00277000
     33HR/C,                                                            00278000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00279000
     53H(R),11X4HPEHF,25X5H(DEG),2X5H(DEG),4X5H(FPM))                   00280000
 9004 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00281000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP,2X4HETAP 00282000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00283000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00284000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,2XF5.1,2XF5.1,3XF6.0)                   00285000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00286000
 1003 FORMAT(9X,38HINSUFFICIENT POWER AVAILABLE FOR CLIMB)              00287000
      PART(XXX,X111,X222,X333,Y111) = (((XXX-X111) * (XXX-X222)) /      00288000
     1    ((X333-X111) * (X333-X222))) * Y111                           00289000
      BO2A(V11,V22,V33,U1,U2,U3) = (V11**2*(U2-U3)-V22**2*(U1-U3)+V33**200290000
     1*(U1-U2))/(2.*(-V11*(U2-U3)+V22*(U1-U3)-V33*(U1-U2)))             00291000
      ADEN(W1,W2,W3,Z1,Z2,Z3) = Z3*(W2-W1)+Z2*(W1-W3)+Z1*(W3-W2)        00292000
      DATA  OO1(1,2)/4H MAX/ ,OO1(2,2)/4HIMUM/ ,OO1(3,2)/4H R/C/        00293000
      DATA  OO1(1,3)/4HCONS/ ,OO1(2,3)/4HTANT/ ,OO1(3,3)/4H EAS/        00294000
      DATA  OO1(1,4)/4HMACH/ ,OO1(2,4)/4H NUM/ ,OO1(3,4)/4HBER /        00295000
      DATA  OO3(1,2)/4H MAX/ ,OO3(2,2)/4HIMUM/                          00296000
      DATA  OO3(1,3)/4HMILI/ ,OO3(2,3)/4HTARY/                          00297000
      DATA  OO3(1,4)/4H NOR/ ,OO3(2,4)/4HMAL /                          00298000
      DATA TAS/4H TAS/                                                  00299000
      YLS2 = 1.0                                                        00300000
      ADELTN = ENCLMB(ICLIMB)                                           00301000
      PI = 3.14159                                                      00302000
      IBOTOM = 0                                                        00303000
      NOCPP = CPPNO + 0.1                                               00304000
      ICHEKH = 0                                                        00305000
      ICHEKT = 0                                                        00306000
      HOPTWF = -1000.                                                   00307000
      IWRITE = 0                                                        00308000
      INDIC = 0                                                         00309000
      INDEX4 = INDEX3                                                   00310000
      WFOOO = WF                                                        00311000
      WFTOTO = 0.0                                                      00312000
      DO 2004 I=1,3                                                     00313000
      IF (CLMIND(ICLIMB).EQ.4.0) GO TO 2002                             00314000
      IF (CLMIND(ICLIMB)-2.0) 2001,2002,2003                            00315000
 2001 OO1(I,1) = OO1(I,2)                                               00316000
      GO TO 2004                                                        00317000
 2002 OO1(I,1) = OO1(I,3)                                               00318000
      GO TO 2004                                                        00319000
 2003 OO1(I,1) = OO1(I,4)                                               00320000
 2004 CONTINUE                                                          00321000
      IF (CLMIND(ICLIMB).EQ.4.0) OO1(3,1) = TAS                         00322000
      DO 2008 I=1,2                                                     00323000
      IF (POWCLI(ICLIMB)-1.0) 2005,2006,2007                            00324000
 2005 OO3(I,1) = OO3(I,2)                                               00325000
      GO TO 2008                                                        00326000
 2006 OO3(I,1) = OO3(I,3)                                               00327000
      GO TO 2008                                                        00328000
 2007 OO3(I,1) = OO3(I,4)                                               00329000
 2008 CONTINUE                                                          00330000
      IF (OPTIND.NE.2.0) GO TO 312                                      00331000
      IF (INOPTH.NE.1)                                                  00332000
     1WRITE(6,9000) HMAX(ICLIMB),(OO1(I,1),I=1,3),(OO3(I,1),I=1,2)      00333000
      IF (INOPTH.EQ.1)                                                  00334000
     1 WRITE(6,9003) (OO1(I,1),I=1,3),(OO3(I,1),I=1,2),HMAX(ICLIMB)     00335000
      WRITE(6,9001)                                                     00336000
      IF (KPRINT.EQ.1) WRITE(6,9004)                                    00337000
 312  KCLIMB = ICLIMB                                                   00338000
      INDATM         = ATMIND(ICLIMB + 20)                              00339000
      IF (ENGIND.NE.0.0) ETAP = 1.0                                     00340000
      IF (ETAIND.EQ.0.0.AND.ENGIND.EQ.0.0) ETAP = ETAP3                 00341000
      DELTAH = 0.                                                       00342000
      CLL = TBCL1(NTCL)                                                 00343000
      IF((DRGIND.EQ.1.).AND.(CLL.GT.TBCL2(NTCL2))) CLL=TBCL2(NTCL2)     00344000
      AN2MAX = AN2M3(ICLIMB)                                            00345000
    1 CALL ATMOS (H,ATMIND(ICLIMB + 20),TIN(ICLIMB + 20))               00346000
      VL  = 1.10 * SQRT(W/(SW *1.42636 * RHO * CLL))                    00347000
      IF(VL.LT.50.) VL = 50.                                            00348000
      VL = VL + 10.                                                     00349000
      LC1=0                                                             00350000
      LC2=0                                                             00351000
      LC3=0                                                             00352000
      KKK = 0                                                           00353000
      IF(CLMIND(ICLIMB).EQ.4.0) GO TO 236                               00354000
      IF (CLMIND(ICLIMB)-2.0) 288,211,212                               00355000
 210  V2 = VMAX                                                         00356000
      V2 =V2/10. + 1.001                                                00357000
      NV2 =V2                                                           00358000
      V2 = 10 * NV2                                                     00359000
      IF(ETAIND.EQ.0.0.OR.ETAIND.EQ.2.0)GO TO 2                         00360000
      V = V2                                                            00361000
 446  Q = 1.42636*RHO*V**2                                              00362000
      EM = V/SA                                                         00363000
      IF (POWCLI(ICLIMB)-1.0) 546,547,548                               00364000
 546  TPS = TMAX                                                        00365000
      GO TO 549                                                         00366000
 547  TPS = TMIL                                                        00367000
      GO TO 549                                                         00368000
 548  TPS = TNRP                                                        00369000
 549  CALL POWAVL(TPS,EM)                                               00370000
      CL = W/(SW*Q)                                                     00371000
      CALL DRAG                                                         00372000
      IF (NEXT.NE.0) RETURN                                             00373000
      CD = CD + DCLIMB(ICLIMB)                                          00374000
      TT3 = CD*SW*Q                                                     00375000
      P = A2STR*VT                                                      00376000
      V2 = V                                                            00377000
      VMAX = V2                                                         00378000
      CCT = (PI**3)*TT3*WGA/(0.009507*SIGMA*WG*P**2)                    00379000
      IF(ETAIND.EQ.1.0)GO TO 447                                        00380000
      TOAD=CCT*(P/STHETA)**2/3261.21                                    00381000
      IF(TOAD.LE.CPPROP(NOCPP))GO TO 2                                  00382000
      GO TO 448                                                         00383000
  447 IF(CCT.LE.CPPROP(NOCPP)) GO TO 2                                  00384000
  448 V=V-10.                                                           00385000
      IF (V.LT.VL) GO TO 206                                            00386000
      GO TO 446                                                         00387000
  211 V2  = EMACH(ICLIMB) / SQRT(SIGMA)                                 00388000
      GO TO 288                                                         00389000
 236  V2 = EMACH(ICLIMB)                                                00390000
      GO TO 288                                                         00391000
  212 EM  = EMACH(ICLIMB)                                               00392000
      V2 = EM * SA                                                      00393000
  288 VMAX = VM0 / SQRT(SIGMA)                                          00394000
      IF (VMAX.GT.(SA*EMM0)) VMAX = SA *EMM0                            00395000
      IF (IVLMT.EQ.0.OR.H.GT.10000.)GO TO 310                           00396000
      VLMT = 250./SQRT(SIGMA)                                           00397000
      IF (VMAX.LE.VLMT) GO TO 310                                       00398000
      INDIC = 1                                                         00399000
      VMAX = VLMT                                                       00400000
 310  IF (CLMIND(ICLIMB).EQ.1.0) GO TO 210                              00401000
      IF (VMAX.LT.V2) V2 = VMAX                                         00402000
      EM = V2/SA                                                        00403000
    2 RGAM1  = 0.                                                       00404000
      RGAM3  = 0.                                                       00405000
      EM  = V2 / SA                                                     00406000
    3 Q      = 1.42636 * RHO * V2**2                                    00407000
      CL = (ADELTN + 1.0)*W/(Q*SW)                                      00408000
      IF (ADELTN.EQ.0.0) CL = CL*COS(RGAM1)                             00409000
      PHI    = 1.                                                       00410000
      IF (DELTAH.NE.0.0) PHI = 1.0 +V2/11.278 * (V2-V1)/DELTAH          00411000
      CALL DRAG                                                         00412000
      CD = CD + DCLIMB(ICLIMB)                                          00413000
      IF(NEXT.NE.0)RETURN                                               00414000
      IF (POWCLI(ICLIMB)-1.0) 200,201,202                               00415000
  200 TPS = TMAX                                                        00416000
      GO TO 204                                                         00417000
  201 TPS = TMIL                                                        00418000
      GO TO 204                                                         00419000
  202 TPS = TNRP                                                        00420000
  204 IF (ENGIND.NE.0.) GO TO 4                                         00421000
      CALL  POWAVL(TPS,EM)                                              00422000
      TKE = TPEA                                                        00423000
      KE = NPLIM + 1                                                    00424000
      BLP  = SHPA                                                       00425000
      IF (ETAIND.NE.0.0) GO TO 61                                       00426000
      BHPA   = BLP * DELTA * STHETA * BHPP                              00427000
      RCPOW = 101.34 * (325.6365*ETAP3*(ETAT*BHPA-DSHPAC)-CD*SW*Q*V2)/W 00428000
C **  ACCESSORY POWER IS SUBTRACTED FROM THE THRUST X VELOCITY TERM IN  00429000
C     THE ABOVE EQUATION. THIS CALCULATION REDUCES THE CLIMB RATE (FPM) 00430000
      GO TO 5                                                           00431000
 61   V = V2                                                            00432000
      CALL THRUST(TPROP,YLS2,ETAP)                                      00433000
      RCPOW = 101.34*V*((TPROP -CD*SW*Q)/W)                             00434000
      GO TO 5                                                           00435000
    4 CALL  THRAVL(TPS,EM)                                              00436000
      TKE = TPEA                                                        00437000
      KE = NPLIM + 1                                                    00438000
      TLP  = SHPA                                                       00439000
      TA     = TLP * DELTA * TP                                         00440000
      RCPOW = 101.34 * V2 * (TA-CD * SW * Q)/ W                         00441000
    5 IF (RCPOW.GE.(101.34*V2    ))  GO TO 7                            00442000
      IF ((RCPOW.GE.0.).OR.(LC1.NE.0)) GO TO 6                          00443000
      IF (CLMIND(ICLIMB).NE.1.0) GO TO 206                              00444000
      V2     = V2 - 10.                                                 00445000
      RC1 = RCPOW                                                       00446000
      IF(V2.GE.VL ) GO TO 2                                             00447000
  206 WRITE(6,5224)                                                     00448000
      WRITE(6,1003)                                                     00449000
      WRITE(6,5224)                                                     00450000
      WRITE(6,NCLIMB)                                                   00451000
      NEXT=1                                                            00452000
      IF (INOPTH.EQ.1) NEXT = 0                                         00453000
      IF (H.GE.1000.) H = H - 1000.                                     00454000
      RETURN                                                            00455000
    6 RGAM2  = ARSIN(RCPOW /(101.34 * V2     ))                         00456000
      IF((ABS(RGAM2-RGAM1)* RTOD).LE.0.1)              GO TO    7       00457000
      RGAM1  = RGAM2                                                    00458000
      GO TO 3                                                           00459000
 7    CL = (ADELTN + 1.0)*W/(Q*SW)                                      00460000
      IF (ADELTN.EQ.0.0) CL = CL*COS(RGAM3)                             00461000
      RCTETA =101.34*V2*SIN((THEMAX(ICLIMB)-ALPHL0+EYEW)*.0174533 -CL/CL00462000
     1ALPH)                                                             00463000
      RGAM4  = ARSIN(RCTETA /(101.34*V2))                               00464000
      IF((ABS(RGAM4-RGAM3)* RTOD).LE..1)               GO TO    8       00465000
      RGAM3  = RGAM4                                                    00466000
      GO TO 7                                                           00467000
    8 IF (CLMIND(ICLIMB).NE.1.0) GO TO 220                              00468000
      IF (KKK-1)  9,30,20                                               00469000
    9 LC1 = LC1 + 1                                                     00470000
      RCP3   = RCP2                                                     00471000
      RCP2   = RCP1                                                     00472000
      RCP1   = RCPOW                                                    00473000
      RCT3   = RCT2                                                     00474000
      RCT2   = RCT1                                                     00475000
      RCT1   = RCTETA * PHI                                             00476000
      V33    = V22                                                      00477000
      V22    = V11                                                      00478000
      V11    = V2                                                       00479000
      IF  (LC1.GE.3)  GO TO  16                                         00480000
      IF ((LC1.EQ.1).AND.(RCT1.LE.RCP1)) GO TO 10                       00481000
      IF ((LC1.EQ.2).AND.(RCP2.GT.RCP1)) GO TO 12                       00482000
      IF (V2.LT.VL)  LC4= 1                                             00483000
      IF (V2.LT.VL)  GO TO 30                                           00484000
      V2 = V2 -5.                                                       00485000
      GO TO 2                                                           00486000
   10 LC4  = 0                                                          00487000
      IF (V2.GT.VMAX) V11 = VMAX                                        00488000
      V2   = V11                                                        00489000
      KKK  = 2                                                          00490000
      GO TO 2                                                           00491000
   12 LC4  = 1                                                          00492000
      IF (V22.GT.VMAX) V22 = VMAX                                       00493000
      V2   = V22                                                        00494000
      KKK  = 1                                                          00495000
      GO TO 2                                                           00496000
   16 IF (RCT1.LT.RCP1)  GO TO 18                                       00497000
      IF (RCP1.LE.RCP2)  GO TO 40                                       00498000
      IF (V2.LT.VL)  LC4= 1                                             00499000
      IF (V2.LT.VL)  GO TO 30                                           00500000
      V2 = V2 -5.                                                       00501000
      GO  TO 2                                                          00502000
   18 RCTA  = PART(V2,V22,V33,V11,RCT1) + PART(V2,V11,V33,V22,RCT2) +   00503000
     1        PART(V2,V11,V22,V33,RCT3)                                 00504000
      RCPA  = PART(V2,V22,V33,V11,RCP1) + PART(V2,V11,V33,V22,RCP2) +   00505000
     1        PART(V2,V11,V22,V33,RCP3)                                 00506000
      IF (RCPA.LE.RCTA) GO TO 19                                        00507000
      V2 = V2 +.2                                                       00508000
      GO  TO 18                                                         00509000
   19 RCTA  = RCPA                                                      00510000
      VRCTA = V2                                                        00511000
      VTEST = ADEN(V11,V22,V33,RCP1,RCP2,RCP3)                          00512000
      IF (VTEST.GE.0.0) GO TO 45                                        00513000
      GO  TO 42                                                         00514000
   40 RCTA  = RCP1                                                      00515000
      VRCTA = V11                                                       00516000
   42 VRCPA = -BO2A(V11,V22,V33,RCP1,RCP2,RCP3)                         00517000
      IF (VRCPA.GE.VRCTA) GO TO 46                                      00518000
   45 LC4 = 0                                                           00519000
      V2  = VRCTA                                                       00520000
      GO TO 50                                                          00521000
   46 LC4 = 1                                                           00522000
      V2  = VRCPA                                                       00523000
   50 KKK  = 1                                                          00524000
C     WRITE(6,NCLIMB)                                                   00525000
      GO TO 2                                                           00526000
   20 CL     = CLALPH*((THEMAX(ICLIMB) - ALPHL0+EYEW)*.01745329-RGAM4)  00527000
      THETAF = THEMAX(ICLIMB)                                           00528000
      GAMMA = RGAM4 * RTOD                                              00529000
      RGAMMA= RGAM4                                                     00530000
      CALL DRAG                                                         00531000
      CD = CD + DCLIMB(ICLIMB)                                          00532000
      IF(NEXT.NE.0)RETURN                                               00533000
      V   = V2                                                          00534000
      RC  = RCTETA                                                      00535000
  221 IF (ENGIND.NE.0.) GO TO 21                                        00536000
      IF (ETAIND.NE.0.0) GO TO 62                                       00537000
      BHPA   = W * PHI * (RCTETA /101.34 + CD * SW * Q * V2 /(W * PHI)) 00538000
     1       /(325.8 * ETAP3 * ETAT)  +  DSHPAC/ETAT                    00539000
C **  BHPA IS ACTUALLY POWER REQUIRED                                   00540000
      BLP    = BHPA /(BHPP * DELTA * STHETA)                            00541000
      SHPR = BLP                                                        00542000
      GO TO 63                                                          00543000
 62   V= V2                                                             00544000
      TPROP = CD*SW*Q + PHI*RCTETA*W/(101.54*V2)                        00545000
      CALL POWER(TPROP,YLS2,ETAP)                                       00546000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00547000
 63   CALL POWREQ(EM)                                                   00548000
      F  = WSHPR * DELTA * STHETA * BHPP                                00549000
      TKE = TPEA                                                        00550000
      KE = 6                                                            00551000
      CALL POWAVL(TMAX,EM)                                              00552000
      PEHF  = SHPR / SHPA                                               00553000
C **  SHPR ALREADY REFLECTS THE ACCESSORY POWER                         00554000
      GO TO 23                                                          00555000
   21 TA   = W * PHI * RCTETA /(101.34 * V2) + CD * SW * Q              00556000
      TLP    = TA /(DELTA * TP)                                         00557000
      SHPR = TLP                                                        00558000
      CALL  THRREQ(EM)                                                  00559000
      F  = WSHPR * DELTA * STHETA * TP                                  00560000
      TKE = TPEA                                                        00561000
      KE = 6                                                            00562000
      CALL THRAVL(TMAX,EM)                                              00563000
      PEHF  = SHPR / SHPA                                               00564000
   23 EAS=V * SQRT(SIGMA)                                               00565000
      IF (INOPTH.NE.1) GO TO 238                                        00566000
      R1 = R + DELTAH/(6076.1*TAN(RGAMMA))                              00567000
      IF (R1.GE.RMAX(INDEX3)) GO TO 2968                                00568000
      A2STO = A2STR                                                     00569000
      RO = R                                                            00570000
      VO = V                                                            00571000
      TKEO = TKE                                                        00572000
      KEO = KE                                                          00573000
      EOO = EO(KE)                                                      00574000
      EMO = EM                                                          00575000
      EMDO = EMD                                                        00576000
      CLOO = W*COS(RGAMMA)/(SW*Q)                                       00577000
      CDOO = CD                                                         00578000
      QOO = Q                                                           00579000
      AN2MXO = AN2MAX                                                   00580000
      SHPRO = SHPR                                                      00581000
      DELTAO = DELTA                                                    00582000
      STHETO = STHETA                                                   00583000
      TPROPO = TPROP                                                    00584000
      SIGMAO = SIGMA                                                    00585000
      TAO = TA                                                          00586000
      WFO = WF                                                          00587000
      FO = F                                                            00588000
      IF (CRSIND(INDEX4)-2.) 232,233,234                                00589000
 232  CALL CRUS1(INDEX4)                                                00590000
      GO TO 235                                                         00591000
 233  CALL CRUS2(INDEX4)                                                00592000
       GO TO 235                                                        00593000
 234  CALL CRUS3(INDEX4)                                                00594000
 235  WFCR = (RMAX(INDEX3) - RO)/EN                                     00595000
      WFTOT = WFCR + WFO - WFOOO                                        00596000
      R = RO                                                            00597000
      V = VO                                                            00598000
      TKE = TKEO                                                        00599000
      KE = KEO                                                          00600000
      EO(KE) = EOO                                                      00601000
      EM = EMO                                                          00602000
      EMD = EMDO                                                        00603000
      CL = CLOO                                                         00604000
      CD = CDOO                                                         00605000
      Q = QOO                                                           00606000
      F = FO                                                            00607000
      AN2MAX = AN2MXO                                                   00608000
      SHPR = SHPRO                                                      00609000
      DELTA = DELTAO                                                    00610000
      STHETA = STHETO                                                   00611000
      TPROP = TPROPO                                                    00612000
      SIGMA = SIGMAO                                                    00613000
      TA = TAO                                                          00614000
      WF = WFO                                                          00615000
      A2STR = A2STO                                                     00616000
      IF (NEXT.NE.0) GO TO 243                                          00617000
      IF (IWRITE.NE.0.OR.WFTOTO.EQ.0.0) GO TO 237                       00618000
      IF (IVLMT.NE.0.AND.H9.GT.10000.) ICHEKH = ICHEKH + 1              00619000
      IF (WFTOT.GE.WFTOTO) GO TO 241                                    00620000
      IF (ICHEKH.EQ.0.OR.IBOTOM.EQ.0) GO TO 237                         00621000
      IF (WFTOT.LT.WFTT10.AND.OPTIND.EQ.2.0) GO TO 257                  00622000
      WFTOTO = WFTOT                                                    00623000
      GO TO 2967                                                        00624000
 241  IF (ICHEKH.EQ.0) GO TO 2968                                       00625000
      IF (ICHEKH.GT.1.AND.IBOTOM.EQ.0) GO TO 2968                       00626000
      IF (ICHEKH.NE.1) GO TO 245                                        00627000
      WFTT10 = WFTOTO                                                   00628000
      R10K = R10                                                        00629000
      W10K = W10                                                        00630000
      WF10K = WF10                                                      00631000
      H10K = H10                                                        00632000
      ST10K = ST10                                                      00633000
      R11K = R                                                          00634000
      W11K = W                                                          00635000
      WF11K = WF                                                        00636000
      H11K = H                                                          00637000
      ST11K = ST                                                        00638000
      V11K = V2                                                         00639000
      WFTOTO = WFTOT                                                    00640000
      IBOTOM = 1                                                        00641000
      GO TO 2967                                                        00642000
 243  IF (IBOTOM.EQ.0) GO TO 251                                        00643000
      NEXT = 0                                                          00644000
 245  IF (WFTOTO.LT.WFTT10) GO TO 247                                   00645000
 246  R = R10K                                                          00646000
      W = W10K                                                          00647000
      H = H10K                                                          00648000
      WF = WF10K                                                        00649000
      ST = ST10K                                                        00650000
      RETURN                                                            00651000
 247  IF (OPTIND.NE.2.) GO TO 251                                       00652000
      HOPTWF = H10                                                      00653000
      INOPTH = 0                                                        00654000
      GO TO 249                                                         00655000
 257  ICHEKT = 1                                                        00656000
      IBOTOM = 0                                                        00657000
 249  IWRITE = 1                                                        00658000
      H10 = H10K                                                        00659000
      R10 = R10K                                                        00660000
      W10 = W10K                                                        00661000
      WF10 = WF10K                                                      00662000
      ST10 = ST10K                                                      00663000
      H = H11K                                                          00664000
      R = R11K                                                          00665000
      W = W11K                                                          00666000
      WF = WF11K                                                        00667000
      ST = ST11K                                                        00668000
      DELTAH = 0.0                                                      00669000
      INDIC = 0                                                         00670000
      GO TO 1                                                           00671000
 251  IF (NEXT.NE.0) NEXT = 0                                           00672000
 2968 R = R10                                                           00673000
      H = H10                                                           00674000
      W = W10                                                           00675000
      ST = ST10                                                         00676000
      WF = WF10                                                         00677000
      RETURN                                                            00678000
 237  IF (ICHEKT.EQ.2.AND.WFTOT.GE.WFTOTO) GO TO 2968                   00679000
      IF (ICHEKT.EQ.1) ICHEKT = 2                                       00680000
      WFTOTO = WFTOT                                                    00681000
 238  IF (OPTIND.NE.2.0) GO TO 2967                                     00682000
      WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,EAS,EM,EMD,GAMMA,     00683000
     2THETAF,RC                                                         00684000
      PETF = PEHF                                                       00685000
      CL = W*COS(RGAMMA)/(Q*SW)                                         00686000
      IF (KPRINT.EQ.1) CALL SCRIBE(0,ETAP,YLS2)                         00687000
 2967 IF (H.GE.HMAX(ICLIMB).AND.IBOTOM.EQ.0) RETURN                     00688000
      IF (H.LT.HMAX(ICLIMB)) GO TO 253                                  00689000
      IF (WFTOT.GE.WFTT10) GO TO 246                                    00690000
      IF (OPTIND.NE.2.) RETURN                                          00691000
      IBOTOM = 0                                                        00692000
      INOPTH = 0                                                        00693000
      GO TO 249                                                         00694000
 253  IF (IBOTOM.EQ.0) GO TO 255                                        00695000
      IF (INOPTH.EQ.1) GO TO 255                                        00696000
      IF (H.LT.HOPTWF) GO TO 255                                        00697000
      RETURN                                                            00698000
 255  NQUO = H/DELH(ICLIMB) + 0.05                                      00699000
      YALE22 = NQUO + 1                                                 00700000
      H9  =  YALE22 * DELH(ICLIMB)                                      00701000
      IF(HMAX(ICLIMB).LT.H9) GO TO 25                                   00702000
      DELTAH = H9 - H                                                   00703000
 24   R10 = R                                                           00704000
      H10 = H                                                           00705000
      W10 = W                                                           00706000
      ST10 = ST                                                         00707000
      WF10 = WF                                                         00708000
      H = H9                                                            00709000
      R    = R + DELTAH/(6076.1 * SIN(RGAMMA)/COS(RGAMMA))              00710000
      W      = W - DELTAH* F /(60.*RC)                                  00711000
      V1     = V2                                                       00712000
      ST  = ST + DELTAH /(RC * 60.)                                     00713000
      WF     = WF+ DELTAH* F /(60.*RC)                                  00714000
      IF (INDIC.NE.1) GO TO 1                                           00715000
      IF (H9.LE.10000.) GO TO 1                                         00716000
      DELTAH = 0.0                                                      00717000
      INDIC = 0                                                         00718000
      GO TO 1                                                           00719000
   25 DELTAH = HMAX(ICLIMB) - H                                         00720000
      H9     = HMAX(ICLIMB)                                             00721000
      GO TO 24                                                          00722000
  220 IF (RCTETA * PHI.GT.RCPOW)  GO TO 225                             00723000
      RC  = RCTETA                                                      00724000
      GAMMA = RGAM4 * RTOD                                              00725000
      RGAMMA= RGAM4                                                     00726000
      THETAF=THEMAX(ICLIMB)                                             00727000
      V = V2                                                            00728000
      GO TO 221                                                         00729000
  225 RC    = RCPOW    /PHI                                             00730000
      RGAM2  = ARSIN(RC    /(101.34 * V2     ))                         00731000
      GAMMA = RGAM2 * RTOD                                              00732000
      RGAMMA = RGAM2                                                    00733000
      THETAF = GAMMA + ALPHL0-EYEW + RTOD *W*COS(RGAM2)/(SW*Q*CLALPH)   00734000
      V = V2                                                            00735000
      GO TO 230                                                         00736000
   30 IF (LC4.EQ.1) GO TO 32                                            00737000
      THETAF = THEMAX(ICLIMB)                                           00738000
      GAMMA = RGAM4 * RTOD                                              00739000
      RGAMMA= RGAM4                                                     00740000
      RC = RCTETA                                                       00741000
      V=V2                                                              00742000
      GO TO 230                                                         00743000
   32 RC = RCPOW / PHI                                                  00744000
      RGAM2  = ARSIN(RC    /(101.34 * V2     ))                         00745000
      GAMMA = RGAM2 * RTOD                                              00746000
      RGAMMA = RGAM2                                                    00747000
      THETAF= ALPHL0 - EYEW + (RGAM2 + W*COS(RGAM2)/(Q*SW*CLALPH))*RTOD 00748000
      V   = V2                                                          00749000
  230 IF (ENGIND.NE.0.0) GO TO 231                                      00750000
      F  = WSHPA * DELTA * STHETA * BHPP                                00751000
      PEHF = 1.0                                                        00752000
      IF (POWCLI(ICLIMB).EQ.0.) GO TO 23                                00753000
      CALL POWAVL(TMAX,EM)                                              00754000
      PEHF = BLP / SHPA                                                 00755000
C **  BLP ALREADY INCLUDES DSHPAC                                       00756000
      GO TO 23                                                          00757000
  231 F  = WSHPA * DELTA * STHETA * TP                                  00758000
      PEHF = 1.0                                                        00759000
      IF (POWCLI(ICLIMB).EQ.0.) GO TO 23                                00760000
      CALL THRAVL(TMAX,EM)                                              00761000
      PEHF = TLP / SHPA                                                 00762000
      GO TO 23                                                          00763000
      END                                                               00764000
      SUBROUTINE CRUS1  (ICRUS )                                        00001000
C**** MEMBER NAME = B93CRUS1                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10),TKETKE(10),EOEOEO(10),HHH(10),ETAETA(10)    00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      COMMON/HAL/INDSGT,KE                                              00257000
C **  HAL IS PASSED AMOUNG CRUS1,3, PRFRM, PRFRP, LOITR                 00258000
      DIMENSION DATA(1)                                                 00259000
      EQUIVALENCE (DATA(1),OPTIND)                                      00260000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00261000
      DIMENSION  EO(7),OO3(2,4)
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00263000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00264000
      NAMELIST/NCRUS1/DELBHP,DELB,DELT,DELT1,ITAB,YLS2,YLS1,INDATM,H, V,00265000
     1   Q,EM,CL,CD,ENGIND,ETAP4,BLP,BHPSUP,BHPA,BHPR,LC1,LC3,B1,DELV,SF00266000
     2C,F,EN,EAS,PEHF,PETF,RRR,STSTST,WWW,WFWFWF,VVV,ENENEN,EASEAS,EMEME00267000
     3M,EMDEMD,PEHFPE,IC2D,IRMAX,R,NQUO,YALE22,R9,RMAX,DELR1,ST,WF,W,B2,00268000
     4TLP,TSUBP,TA,TR,T1,TSFC,T2,EMPTY1,IFUDGE,                         00269000
     5BHPR1,BHPR2,BHPA1,BHPA2,ETAP1,ETAP2,TPROP1,TPROP2                 00270000
 9000 FORMAT(/7X11HCRUISE AT  ,2A4,2X,13HENGINE RATING,10X,13HTEMPERATUR00271000
     1E =,F6.1,1X,5HDEG.F)                                              00272000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00273000
     13X5HSPEC.,4X,4HETAP,                                              00274000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00275000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,4X5HRANGE,4X,4HPROP,   00276000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00277000
     53H(R),11X4HPEHF,26X6H(NMPP))                                      00278000
 9004 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00279000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP          00280000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00281000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00282000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,3XF6.5,3XF5.3)                          00283000
 9005 FORMAT( 7XF6.3,5XF6.4,4XF6.3,4XF7.0,2XF7.0,2XF7.0,2XF7.0,         00284000
     1 6XF7.0,2XF6.4,1XF6.4,1XF6.3,3XF5.1/)                             00285000
      DATA  OO3(1,2)/4H MAX/ ,OO3(2,2)/4HIMUM/                          00287000
      DATA  OO3(1,3)/4HMILI/ ,OO3(2,3)/4HTARY/                          00288000
      DATA  OO3(1,4)/4H NOR/ ,OO3(2,4)/4HMAL /                          00289000
      RMAX1 = RMAX(ICRUS)                                               00290000
      KOLIN = 0                                                         00291000
      IFUDGE = ICRUS                                                    00292000
      DO 2008 I=1,2                                                     00293000
      IF (POWCRI(ICRUS)-1.0)  2005,2006,2007                            00294000
 2005 OO3(I,1) = OO3(I,2)                                               00295000
      GO TO 2008                                                        00296000
 2006 OO3(I,1) = OO3(I,3)                                               00297000
      GO TO 2008                                                        00298000
 2007 OO3(I,1) = OO3(I,4)                                               00299000
 2008 CONTINUE                                                          00300000
      IF(NEXT.NE.0) GO TO 1210                                          00301000
      INDATM = ATMIND(ICRUS + 30)                                       00302000
      CALL ATMOS(H,ATMIND(ICRUS + 30),TIN(ICRUS + 30))                  00303000
 1210 TEMP = THETA * 518.69  -  459.69                                  00304000
      IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 312                       00305000
      IF(INDSGT.EQ.11) GO TO 312                                        00306000
      WRITE(6,9000) (OO3(I,1),I=1,2),TEMP                               00307000
      WRITE(6,9001)                                                     00308000
      IF (KPRINT.EQ.1) WRITE(6,9004)                                    00309000
 312  IF (ENGIND.NE.0.0) ETAP = 1.0                                     00310000
      AN2MAX  =  AN2M4(ICRUS)                                           00311000
      DELBHP=10.                                                        00312000
      DELB  =  .01                                                      00313000
      DELT  =10.                                                        00314000
      DELT1 =  .01                                                      00315000
      ITAB = 0                                                          00316000
      YLS2=(ENP - ENPSD(ICRUS))/ ENP                                    00317000
      YLS1=1./YLS2                                                      00318000
      IF (NEXT.EQ.0) GO TO 250                                          00319000
      NEXT = 0                                                          00320000
      KOLIN = 1                                                         00321000
      LC3  = 1                                                          00322000
      VSAVE = V                                                         00323000
      IF (ENGIND.EQ.0.) GO TO 255                                       00324000
      GO TO 256                                                         00325000
  250 CONTINUE                                                          00326000
      LC1=0                                                             00327000
    1 V   = VM0 / SQRT(SIGMA)                                           00328000
      LC3=0                                                             00329000
      IF(V.GT.(SA * EMM0)) V= SA * EMM0                                 00330000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 700                          00331000
      IF(INDSGT.EQ.11) GO TO 700                                        00332000
      VLMT = 250./SQRT(SIGMA)                                           00333000
      IF (V.GT.VLMT) V = VLMT                                           00334000
  700 Q   = 1.42636 * RHO * V**2                                        00335000
      EM  = V / SA                                                      00336000
      CL  = W /(SW*Q)                                                   00337000
      LC3=LC3 + 1                                                       00338000
      CALL DRAG                                                         00339000
      IF(NEXT.NE.0)RETURN                                               00340000
      CD  = CD + DLCDCR(ICRUS)                                          00341000
      IF (POWCRI(ICRUS)-1.0) 200,201,202                                00342000
  200 TPS = TMAX                                                        00343000
      GO TO 204                                                         00344000
  201 TPS = TMIL                                                        00345000
      GO TO 204                                                         00346000
  202 TPS = TNRP                                                        00347000
  204 IF (ENGIND.NE.0.) GO TO 4                                         00348000
      IF (ETAIND.NE.0.0) GO TO 26                                       00349000
      ETAP4  = XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                          00350000
      ETAP = ETAP4                                                      00351000
      IF(M.NE.0)WRITE(6,1001)                                           00352000
      GO TO 28                                                          00353000
 26   TPROP = CD*SW*Q                                                   00354000
      CALL POWER(TPROP,YLS2,ETAP)                                       00355000
      BHPR = SHPR*BHPP*DELTA*STHETA*YLS2                                00356000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00357000
 28   CALL POWAVL(TPS,EM)                                               00358000
      TKE = TPEA                                                        00359000
      KE  = NPLIM +1                                                    00360000
      BLP = SHPA                                                        00361000
      WSHPR  = WSHPA                                                    00362000
      BHPSUP= BLP * BHPP * DELTA * STHETA                               00363000
      BHPA=BHPSUP*YLS2                                                  00364000
      IF (ETAIND.NE.0.0) GO TO 27                                       00365000
      BHPR = CD * SW * Q * V /(325.8 * ETAP4* ETAT) + DSHPAC            00366000
 27   IF (ABS(BHPA-BHPR).LE.DELBHP) GO TO 900                           00367000
      IF(LC3.GE.2)GO TO 100                                             00368000
      IF(BHPA.GT.BHPR) GO TO 101                                        00369000
      BHPR1 = BHPR                                                      00370000
      BHPA1 = BHPA                                                      00371000
      ETAP1 = ETAP                                                      00372000
      TPROP1 = TPROP                                                    00373000
  255 B1  = BHPR -BHPA                                                  00374000
  701 DELV = 10.                                                        00375000
  702 V    = V - DELV                                                   00376000
      IF (V.GT.100.) GO TO 700                                          00377000
      GO TO 780                                                         00378000
  101 BHPA = BHPR                                                       00379000
      BHPSUP=BHPA*YLS1                                                  00380000
C **  AT THIS POINT DSHPAC IS ALREADY ACCOUNTED FOR                     00381000
      BLP=BHPSUP/(BHPP*DELTA*STHETA)                                    00382000
      SHPR   = BLP                                                      00383000
      CALL  POWREQ(EM)                                                  00384000
      TKE = TPEA                                                        00385000
      KE = 6                                                            00386000
 900  F = WSHPR*DELTA*STHETA*BHPP*YLS2                                  00387000
   99 EN=V/F                                                            00388000
      IF (INOPTH.EQ.1) RETURN                                           00389000
      IF(OPTIND.EQ.1.) GO TO 11                                         00390000
      EAS=V*SQRT(SIGMA)                                                 00391000
      IF(ENGIND.EQ.0.) GO TO 4256                                       00392000
      VQ=TSUBP/(DELTA*TP)                                               00393000
      CALL  THRAVL(TMAX,EM)                                             00394000
      GOTO 4257                                                         00395000
 4256 VQ=BHPSUP/(DELTA*STHETA*BHPP)                                     00396000
      CALL POWAVL(TMAX,EM)                                              00397000
 4257 ANICE = SHPA                                                      00398000
      PETF=VQ/ANICE                                                     00399000
      PEHF=PETF                                                         00400000
   11 IF(INDSGT.EQ.11) RETURN                                           00401000
      ITAB = ITAB + 1                                                   00402000
      IF (ITAB.GT.10) GO TO 706                                         00403000
    2 RRR(ITAB) = R                                                     00404000
      STSTST(ITAB)= ST                                                  00405000
      WWW(ITAB) = W                                                     00406000
      WFWFWF(ITAB) = WF                                                 00407000
      VVV(ITAB)    = V                                                  00408000
      ENENEN(ITAB) = EN                                                 00409000
      EASEAS(ITAB) = EAS                                                00410000
      EMEMEM(ITAB) = EM                                                 00411000
      EMDEMD(ITAB) = EMD                                                00412000
      PEHFPE(ITAB) = PEHF                                               00413000
      TKETKE(ITAB)  = TKE                                               00414000
      EOEOEO(ITAB)  = EO(KE)                                            00415000
      ETAETA(ITAB) = ETAP                                               00416000
      HHH(ITAB) = H                                                     00417000
      IF (KPRINT.EQ.1.AND.OPTIND.EQ.2.0) CALL SCRIBE(ITAB,ETAP,YLS2)    00418000
      IC2D=ITAB                                                         00419000
      IRMAX=ICRUS                                                       00420000
      IF (R.GE.RMAX1) GO TO 22267                                       00421000
      NQUO = R / DELR(ICRUS) + .05                                      00422000
      YALE22 = NQUO + 1                                                 00423000
      R9     = YALE22 * DELR(ICRUS)                                     00424000
      IF (RMAX1.LT.R9) GO TO 3                                          00425000
      DELR1 = R9 - R                                                    00426000
  709 R   = R9                                                          00427000
      ST = ST + DELR1 / V                                               00428000
      WF = WF + F * DELR1/V                                             00429000
      W   =W - F * DELR1/ V                                             00430000
      V = VSAVE                                                         00431000
      LC3 = 0                                                           00432000
      IF (KOLIN.EQ.1) GO TO 700                                         00433000
      GO TO 1                                                           00434000
 3    DELR1 = RMAX1 - R                                                 00435000
      R9 = RMAX1                                                        00436000
      GO TO 709                                                         00437000
 706  IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 314                       00438000
      WRITE(6,9002) STSTST(1),RRR(1),WFWFWF(1),WWW(1),                  00439000
     1H,VVV(1),TKETKE(1),EOEOEO(1),PEHFPE(1),EASEAS(1),EMEMEM(1),       00440000
     2EMDEMD(1),ENENEN(1),ETAETA(1)                                     00441000
      IF (KPRINT.EQ.0) GO TO 314                                        00442000
      WRITE(6,9005) CLCLCL(1),CDCDCD(1),ALDALD(1),ELLELL(1),DEEDEE(1),  00443000
     1 FFF(1),BHPBHP(1),TPTPTP(1),CCPCCP(1),CCTCCT(1),AJAJAJ(1),PPP(1)  00444000
      DO 13146 I = 1,9                                                  00445000
      PPP(I) = PPP(I+1)                                                 00446000
      CLCLCL(I) = CLCLCL(I+1)                                           00447000
      CDCDCD(I) = CDCDCD(I+1)                                           00448000
      ALDALD(I) = ALDALD(I+1)                                           00449000
      ELLELL(I) = ELLELL(I+1)                                           00450000
      DEEDEE(I) = DEEDEE(I+1)                                           00451000
      FFF(I) = FFF(I+1)                                                 00452000
      BHPBHP(I) = BHPBHP(I+1)                                           00453000
      TPTPTP(I) = TPTPTP(I+1)                                           00454000
      CCPCCP(I) = CCPCCP(I+1)                                           00455000
      CCTCCT(I) = CCTCCT(I+1)                                           00456000
13146 AJAJAJ(I) = AJAJAJ(I+1)                                           00457000
 314  DO 13145 I = 1,9                                                  00458000
      RRR(I) = RRR(I+1)                                                 00459000
      STSTST(I) = STSTST(I+1)                                           00460000
      WFWFWF(I) = WFWFWF(I+1)                                           00461000
      ENENEN(I) = ENENEN(I+1)                                           00462000
      EASEAS(I) = EASEAS(I+1)                                           00463000
      EMEMEM(I) = EMEMEM(I+1)                                           00464000
      EMDEMD(I) = EMDEMD(I+1)                                           00465000
      PEHFPE(I) = PEHFPE(I+1)                                           00466000
      VVV(I)    = VVV(I+1)                                              00467000
      TKETKE(I)  =  TKETKE(I+1)                                         00468000
      EOEOEO(I)     = EOEOEO(I+1)                                       00469000
      ETAETA(I) = ETAETA(I+1)                                           00470000
      HHH(I) = HHH(I+1)                                                 00471000
13145 WWW(I) = WWW(I+1)                                                 00472000
      ITAB = ITAB - 1                                                   00473000
      GO TO 2                                                           00474000
  704 IF (B2.LT.0.) GO TO 705                                           00475000
      GO TO 770                                                         00476000
  100 B2  = BHPR - BHPA                                                 00477000
      BHPR2 = BHPR                                                      00478000
      BHPA2 = BHPA                                                      00479000
      TPROP2 = TPROP                                                    00480000
      IF(ABS((B1 - B2)/ B2).LE.DELB) GO TO 770                          00481000
      DELV = DELV * B2 /(B1 - B2)                                       00482000
      IF (DELV.LT.0.) GO TO 704                                         00483000
  705 B1  = B2                                                          00484000
      BHPR1 = BHPR2                                                     00485000
      BHPA1 = BHPA2                                                     00486000
      ETAP1 = ETAP2                                                     00487000
      TPROP1 = TPROP2                                                   00488000
      GO TO 702                                                         00489000
    4 CALL THRAVL(TPS,EM)                                               00490000
      TKE = TPEA                                                        00491000
      KE  = NPLIM +1                                                    00492000
      WSHPR = WSHPA                                                     00493000
      TLP = SHPA                                                        00494000
      TSUBP= TL   P * DELTA * TP                                        00495000
      TA=TSUBP*YLS2                                                     00496000
      TR  = CD * SW * Q                                                 00497000
      IF(ABS(TA - TR).LE.DELT) GO TO 901                                00498000
      IF(LC3.GE.2)GO TO 102                                             00499000
      IF(TA.GT.TR)GO TO 103                                             00500000
  256 T1  = TR -TA                                                      00501000
      GO TO 701                                                         00502000
  103 TA= TR                                                            00503000
      TSUBP=TA*YLS1                                                     00504000
      TLP=TSUBP/(DELTA*TP)                                              00505000
      SHPR = TLP                                                        00506000
      CALL THRREQ(EM)                                                   00507000
      TKE = TPEA                                                        00508000
      KE = 6                                                            00509000
 901  F = WSHPR*DELTA*STHETA*TP*YLS2                                    00510000
      GO TO 99                                                          00511000
  711 IF (T2.LT.0.) GO TO 710                                           00512000
      GO TO 770                                                         00513000
  102 T2= TR -TA                                                        00514000
      IF (ABS((T1-T2)/T2).LE.DELT1) GO TO 770                           00515000
      DELV = DELV * T2 /(T1 - T2)                                       00516000
      IF (DELV.LT.0.) GO TO 711                                         00517000
  710 T1  = T2                                                          00518000
      GO TO 702                                                         00519000
C     EMPTY1  STANDS FOR THE NEXT  SGTIND (SET IN PRFRM LOOP)           00520000
C          IF EMPTY1 = 5.(DESCENT) WE DO NOT PRINT TABLE UNTIL DSCNT RT.00521000
22267 IF((OPTIND.NE.2.).OR.(EMPTY1.EQ.5.)) RETURN                       00522000
      IF (INOPTH.EQ.1) RETURN                                           00523000
      DO 13147 I = 1,ITAB                                               00524000
      WRITE(6,9002) STSTST(I),RRR(I),WFWFWF(I),WWW(I),H,VVV(I),         00525000
     1TKETKE(I),EOEOEO(I),PEHFPE(I),EASEAS(I),EMEMEM(I),EMDEMD(I),      00526000
     2 ENENEN(I),ETAETA(I)                                              00527000
      IF (KPRINT.EQ.1) WRITE(6,9005)  CLCLCL(I),CDCDCD(I),ALDALD(I),    00528000
     1 ELLELL(I),DEEDEE(I),FFF(I),BHPBHP(I),TPTPTP(I),CCPCCP(I),        00529000
     2 CCTCCT(I),AJAJAJ(I),PPP(I)                                       00530000
13147 CONTINUE                                                          00531000
      RETURN                                                            00532000
 770  IF (INOPTH.EQ.1) GO TO 613                                        00533000
      WRITE(6,5224)                                                     00534000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00535000
      WRITE(6,1004)                                                     00536000
      WRITE(6,5224)                                                     00537000
      WRITE(6,NCRUS1)                                                   00538000
      NEXT=1                                                            00539000
      RETURN                                                            00540000
 780  IF (INOPTH.EQ.1) GO TO 613                                        00541000
      WRITE(6,5224)                                                     00542000
      WRITE(6,1004)                                                     00543000
      WRITE(6,1044)                                                     00544000
 1044 FORMAT(9X27HAT V GREATER THAN 150 KNOTS)                          00545000
      WRITE(6,5224)                                                     00546000
      WRITE(6,NCRUS1)                                                   00547000
 613  NEXT = 1                                                          00548000
      RETURN                                                            00549000
 1001 FORMAT(22X35HTHIS ERROR IS IN THE M-ETAP4 TABLE )                 00550000
 1009 FORMAT(5X,6E14.7)                                                 00551000
 1004 FORMAT(/9X,39HINSUFFICIENT POWER AVAILABLE FOR CRUISE)            00552000
      END                                                               00553000
      SUBROUTINE CRUS2(ICRUS )                                          00001000
C**** MEMBER NAME = B93TCRS2                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10),TKETKE(10),EOEOEO(10),HHH(10),ETAETA(10)    00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      DIMENSION DATA(1)                                                 00257000
      EQUIVALENCE (DATA(1),OPTIND)                                      00258000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00259000
      DIMENSION  EO(7),OO3(2,4)
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00261000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00262000
      NAMELIST/NCRUS2/ITAB,YLS2,YLS1,INDATM,    V,H,Q,EM,CL,CD,ENGIND,ET00263000
     1AP4,BHPR,BLP,BHPSUP,BHPA,SFC,F,TR,TLP,TSUBP,TA,TSFC,EN,EAS,PETF,PE00264000
     2HF,RRR,STSTST,WWW,WFWFWF,VVV,ENENEN,EASEAS,EMEMEM,EMDEMD,PEHFPE,IC00265000
     3 2D,IRMAX,R,RMAX,NQUO,YALE22,R9,DELR1,ST,WF,W,EMPTY1,IFUDGE       00266000
 9000 FORMAT(/7X11HCRUISE AT  ,F6.1,2X,22HKNOTS TAS, LIMITED BY ,2A4,2X,00267000
     113HENGINE RATING,10X,13HTEMPERATURE =,F6.1,1X,5HDEG.F)            00268000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00269000
     13X5HSPEC.,4X,4HETAP,                                              00270000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00271000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,4X5HRANGE,4X,4HPROP,   00272000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00273000
     53H(R),11X4HPEHF,26X6H(NMPP))                                      00274000
 9004 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00275000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP          00276000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00277000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00278000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,3XF6.5,3XF5.3)                          00279000
 9005 FORMAT( 7XF6.3,5XF6.4,4XF6.3,4XF7.0,2XF7.0,2XF7.0,2XF7.0,         00280000
     1 6XF7.0,2XF6.4,1XF6.4,1XF6.3,3XF5.1/)                             00281000
      DATA  OO3(1,2)/4H MAX/ ,OO3(2,2)/4HIMUM/                          00283000
      DATA  OO3(1,3)/4HMILI/ ,OO3(2,3)/4HTARY/                          00284000
      DATA  OO3(1,4)/4H NOR/ ,OO3(2,4)/4HMAL /                          00285000
      RMAX1 = RMAX(ICRUS)                                               00286000
      IFUDGE = ICRUS                                                    00287000
      DO 2008 I=1,2                                                     00288000
      IF (POWCRI(ICRUS)-1.0)  2005,2006,2007                            00289000
 2005 OO3(I,1) = OO3(I,2)                                               00290000
      GO TO 2008                                                        00291000
 2006 OO3(I,1) = OO3(I,3)                                               00292000
      GO TO 2008                                                        00293000
 2007 OO3(I,1) = OO3(I,4)                                               00294000
 2008 CONTINUE                                                          00295000
 1001 FORMAT(22X35HTHIS ERROR IS IN THE M-ETAP4 TABLE )                 00296000
 1006 FORMAT(19X,56HINSUFFICIENT POWER AVAILABLE FOR CRUISE AT DESIRED S00297000
     1PEED)                                                             00298000
      INDATM = ATMIND(ICRUS + 30)                                       00299000
      CALL ATMOS(H,ATMIND(ICRUS + 30),TIN(ICRUS + 30))                  00300000
      TEMP = THETA * 518.69  -  459.69                                  00301000
      IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 32                        00302000
      WRITE(6,9000) VIN(ICRUS),(OO3(I,1),I=1,2),TEMP                    00303000
      WRITE(6,9001)                                                     00304000
      IF (KPRINT.EQ.1) WRITE(6,9004)                                    00305000
 32   IF (ENGIND.NE.0.0) ETAP = 1.0                                     00306000
      AN2MAX  =  AN2M4(ICRUS)                                           00307000
      ITAB=0                                                            00308000
      YLS2 = (ENP - ENPSD(ICRUS))/ENP                                   00309000
      YLS1 = 1./YLS2                                                    00310000
      V   =VIN(ICRUS)                                                   00311000
      IF(V.GT.(VM0/SQRT(SIGMA))) V= VM0/SQRT(SIGMA)                     00312000
      IF(V.GT.(SA*EMM0)) V= SA * EMM0                                   00313000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 1                            00314000
      VLMT = 250./SQRT(SIGMA)                                           00315000
      IF (V.GT.VLMT) V = VLMT                                           00316000
    1 Q   = 1.42636 * RHO * V**2                                        00317000
      EM  = V / SA                                                      00318000
      CL  = W /(SW * Q)                                                 00319000
      CALL DRAG                                                         00320000
      IF(NEXT.NE.0) RETURN                                              00321000
      CD   = CD + DLCDCR(ICRUS)                                         00322000
      IF (POWCRI(ICRUS)-1.0)  200,201,202                               00323000
  200 TPS = TMAX                                                        00324000
      GO TO 204                                                         00325000
  201 TPS = TMIL                                                        00326000
      GO TO 204                                                         00327000
  202 TPS = TNRP                                                        00328000
  204 IF (ENGIND.NE.0.) GO TO 2                                         00329000
      IF (ETAIND.NE.0.0) GO TO 26                                       00330000
      ETAP4= XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                            00331000
      ETAP = ETAP4                                                      00332000
      IF(M.NE.0) WRITE(6,1001)                                          00333000
      BHPR= CD * SW * Q * V /(325.8 *ETAP4* ETAT) + DSHPAC              00334000
      GO TO 28                                                          00335000
 26   TPROP = CD*SW*Q                                                   00336000
      CALL POWER(TPROP,YLS2,ETAP)                                       00337000
      BHPR = SHPR*BHPP*DELTA*STHETA*YLS2                                00338000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00339000
 28   CALL POWAVL(TPS,EM)                                               00340000
      TKE = TPEA                                                        00341000
      KE  = NPLIM +1                                                    00342000
      BLP = SHPA                                                        00343000
      BHPSUP = BLP * DELTA * STHETA * BHPP                              00344000
      BHPA = BHPSUP * YLS2                                              00345000
      IF(BHPR.GT.BHPA) GO TO 3                                          00346000
      BHPA= BHPR                                                        00347000
      BHPSUP= BHPA * YLS1                                               00348000
      BLP  = BHPSUP/(BHPP * DELTA * STHETA)                             00349000
C **  BHPSUP INCLUDES DSHPAC DUE TO PRIOR CALCULATION OF BHPR           00350000
      SHPR  = BLP                                                       00351000
      CALL POWREQ(EM)                                                   00352000
      WSHPA  = WSHPR                                                    00353000
      TKE  = TPEA                                                       00354000
      KE   = 6                                                          00355000
      F = WSHPA*DELTA*STHETA*BHPP*YLS2                                  00356000
      GO TO 99                                                          00357000
    2 TR=CD*Q*SW                                                        00358000
      CALL  THRAVL(TPS,EM)                                              00359000
      TKE = TPEA                                                        00360000
      KE  = NPLIM +1                                                    00361000
      TLP = SHPA                                                        00362000
      TSUBP = TLP * TP * DELTA                                          00363000
      TA   = TSUBP * YLS2                                               00364000
      IF(TR.GT.TA) GO TO 3                                              00365000
      TA=TR                                                             00366000
      TSUBP= TA * YLS1                                                  00367000
      TLP  = TSUBP /(TP * DELTA)                                        00368000
      SHPR  = TLP                                                       00369000
      CALL THRREQ(EM)                                                   00370000
      WSHPA  = WSHPR                                                    00371000
      TKE  = TPEA                                                       00372000
      KE   = 6                                                          00373000
      F = WSHPA*DELTA*STHETA*TP*YLS2                                    00374000
   99 EN=V/F                                                            00375000
      IF (INOPTH.EQ.1) RETURN                                           00376000
      IF(OPTIND.EQ.1.) GO TO 11                                         00377000
      EAS=V*SQRT(SIGMA)                                                 00378000
      IF(ENGIND.EQ.0.) GO TO 4256                                       00379000
      VQ=TSUBP/(DELTA*TP)                                               00380000
      CALL  THRAVL(TMAX,EM)                                             00381000
      GOTO 4257                                                         00382000
 4256 VQ=BHPSUP/(DELTA*STHETA*BHPP)                                     00383000
      CALL  POWAVL(TMAX,EM)                                             00384000
 4257 ANICE  = SHPA                                                     00385000
      PETF=VQ/ANICE                                                     00386000
      PEHF=PETF                                                         00387000
   11 ITAB = ITAB + 1                                                   00388000
      IF (ITAB.GT.10)  GO TO 901                                        00389000
   22 RRR(ITAB) = R                                                     00390000
      STSTST(ITAB)= ST                                                  00391000
      WWW(ITAB) = W                                                     00392000
      WFWFWF(ITAB) = WF                                                 00393000
      VVV(ITAB)    = V                                                  00394000
      ENENEN(ITAB) = EN                                                 00395000
      EASEAS(ITAB) = EAS                                                00396000
      EMEMEM(ITAB) = EM                                                 00397000
      EMDEMD(ITAB) = EMD                                                00398000
      PEHFPE(ITAB) = PEHF                                               00399000
      TKETKE(ITAB)  = TKE                                               00400000
      EOEOEO(ITAB)  = EO(KE)                                            00401000
      ETAETA(ITAB) = ETAP                                               00402000
      HHH(ITAB) = H                                                     00403000
      IF (KPRINT.EQ.1.AND.OPTIND.EQ.2.0) CALL SCRIBE(ITAB,ETAP,YLS2)    00404000
      IC2D=ITAB                                                         00405000
      IRMAX=ICRUS                                                       00406000
      IF (R.GE.RMAX1) GO TO 22267                                       00407000
      NQUO = R / DELR(ICRUS) + .05                                      00408000
      YALE22 = NQUO + 1                                                 00409000
      R9     = YALE22 * DELR(ICRUS)                                     00410000
      IF (RMAX1.LT.R9) GO TO 333                                        00411000
      DELR1 = R9 - R                                                    00412000
  902 R  = R9                                                           00413000
      ST  =ST +DELR1/V                                                  00414000
      WF = WF + F * DELR1/V                                             00415000
      W   =W - F * DELR1/ V                                             00416000
      GO TO 1                                                           00417000
 333  DELR1 = RMAX1 - R                                                 00418000
      R9 = RMAX1                                                        00419000
      GO TO 902                                                         00420000
 901  IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 35                        00421000
      WRITE(6,9002) STSTST(1),RRR(1),WFWFWF(1),WWW(1),                  00422000
     1H,VVV(1),TKETKE(1),EOEOEO(1),PEHFPE(1),EASEAS(1),EMEMEM(1),       00423000
     2EMDEMD(1),ENENEN(1),ETAETA(1)                                     00424000
      IF (KPRINT.EQ.0)GO TO 35                                          00425000
      WRITE(6,9005) CLCLCL(1),CDCDCD(1),ALDALD(1),ELLELL(1),DEEDEE(1),  00426000
     1 FFF(1),BHPBHP(1),TPTPTP(1),CCPCCP(1),CCTCCT(1),AJAJAJ(1),PPP(1)  00427000
      DO 13146 I = 1,9                                                  00428000
      PPP(I) = PPP(I+1)                                                 00429000
      ALDALD(I) = ALDALD(I+1)                                           00430000
      CLCLCL(I) = CLCLCL(I+1)                                           00431000
      CDCDCD(I) = CDCDCD(I+1)                                           00432000
      ELLELL(I) = ELLELL(I+1)                                           00433000
      DEEDEE(I) = DEEDEE(I+1)                                           00434000
      FFF(I) = FFF(I+1)                                                 00435000
      BHPBHP(I) = BHPBHP(I+1)                                           00436000
      TPTPTP(I) = TPTPTP(I+1)                                           00437000
      CCPCCP(I) = CCPCCP(I+1)                                           00438000
      CCTCCT(I) = CCTCCT(I+1)                                           00439000
13146 AJAJAJ(I) = AJAJAJ(I+1)                                           00440000
 35   DO 13145 I = 1,9                                                  00441000
      RRR(I) = RRR(I+1)                                                 00442000
      HHH(I) = HHH(I+1)                                                 00443000
      STSTST(I) = STSTST(I+1)                                           00444000
      WFWFWF(I) = WFWFWF(I+1)                                           00445000
      ENENEN(I) = ENENEN(I+1)                                           00446000
      EASEAS(I) = EASEAS(I+1)                                           00447000
      EMEMEM(I) = EMEMEM(I+1)                                           00448000
      EMDEMD(I) = EMDEMD(I+1)                                           00449000
      PEHFPE(I) = PEHFPE(I+1)                                           00450000
      VVV(I)    = VVV(I+1)                                              00451000
      TKETKE(I)  =  TKETKE(I+1)                                         00452000
      EOEOEO(I)     = EOEOEO(I+1)                                       00453000
      ETAETA(I) = ETAETA(I+1)                                           00454000
13145 WWW(I) = WWW(I+1)                                                 00455000
      ITAB = ITAB - 1                                                   00456000
      GO TO 22                                                          00457000
C     EMPTY1  STANDS FOR THE NEXT  SGTIND (SET IN PRFRM LOOP)           00458000
C          IF EMPTY1 = 5.(DESCENT) WE DO NOT PRINT TABLE UNTIL DSCNT RT.00459000
22267 IF((OPTIND.NE.2.).OR.(EMPTY1.EQ.5.)) RETURN                       00460000
      IF (INOPTH.EQ.1) RETURN                                           00461000
      DO 13147 I = 1,ITAB                                               00462000
      WRITE(6,9002) STSTST(I),RRR(I),WFWFWF(I),WWW(I),H,VVV(I),         00463000
     1TKETKE(I),EOEOEO(I),PEHFPE(I),EASEAS(I),EMEMEM(I),EMDEMD(I),      00464000
     2 ENENEN(I),ETAETA(I)                                              00465000
      IF (KPRINT.EQ.1) WRITE(6,9005)  CLCLCL(I),CDCDCD(I),ALDALD(I),    00466000
     1 ELLELL(I),DEEDEE(I),FFF(I),BHPBHP(I),TPTPTP(I),CCPCCP(I),        00467000
     2 CCTCCT(I),AJAJAJ(I),PPP(I)                                       00468000
13147 CONTINUE                                                          00469000
      RETURN                                                            00470000
 3    IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 33                        00471000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00472000
      WRITE(6,1006)                                                     00473000
   33 NEXT = 1                                                          00474000
      CALL CRUS1(ICRUS)                                                 00475000
      RETURN                                                            00476000
      END                                                               00477000
      SUBROUTINE CRUS3(ICRUS)                                           00001000
C**** MEMBER NAME = B93TCRS3                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC. 2201 TO LOC. 2330 + SPACE(20)         00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10),  AN2M7(10) , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  ,  LOC 2351 TO 2428  +  SPACE(22)             00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10),TKETKE(10),EOEOEO(10),HHH(10),ETAETA(10)    00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      COMMON/HAL/INDSGT,KE                                              00257000
C **  HAL IS PASSED AMOUNG CRUS1,3, PRFRM, PRFRP, LOITR                 00258000
      DIMENSION DATA(1)                                                 00259000
      EQUIVALENCE (DATA(1),OPTIND)                                      00260000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00261000
      DIMENSION  EO(7)                                                  00262000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00263000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00264000
      NAMELIST/NCRUS3/ITAB,YLS1,YLS2,INDATM,H,LC3,LC4,LC5,V,EM,Q,CL,CD,E00265000
     1TAP4,BLP,BHPSUP,BHPA,BHPR,SFC,F,TLP,TSUBP,TA,TR,TSFC,EN,EN1,V,EN2,00266000
     2EAS,PEHF,PETF,RRR,STSTST,WWW,WFWFWF,VVV,ENENEN,EASEAS,EMEMEM,EMDEM00267000
     3D,PEHFPE,IC2D,IRMAX,RMAX,R,NQUO,YALE22,R9,DELR1,ST,WF,W,EMPTY1,IFU00268000
     4DGE                                                               00269000
 9000 FORMAT(/7X,*CRUISE AT BEST RANGE SPEED WITH HEADWIND OF *,F5.1,* K00270000
     1NOTS*,10X,*TEMPERATURE =*,F6.1,1X,*DEG.F*)                        00271000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00272000
     13X5HSPEC.,4X,4HETAP,                                              00273000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00274000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,4X5HRANGE,4X,4HPROP,   00275000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00276000
     53H(R),11X4HPEHF,26X6H(NMPP))                                      00277000
 9005 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00278000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP          00279000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00280000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00281000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,3XF6.5,3XF5.3)                          00282000
 9006 FORMAT( 7XF6.3,5XF6.4,4XF6.3,4XF7.0,2XF7.0,2XF7.0,2XF7.0,         00283000
     1 6XF7.0,2XF6.4,1XF6.4,1XF6.3,3XF5.1/)                             00284000
      RMAX1 = RMAX(ICRUS)                                               00285000
      INDIC = 0                                                         00286000
      V = VSAVE + 20.                                                   00287000
      IFUDGE = ICRUS                                                    00288000
      LC6 = 0                                                           00289000
      PI = 3.14159                                                      00290000
      NOCPP = CPPNO + 0.1                                               00291000
      CALL ATMOS(H,ATMIND(ICRUS+30),TIN(ICRUS+30))                      00292000
      TEMP = THETA * 518.69  -  459.69                                  00293000
      WOVDEL = W/DELTA                                                  00294000
      IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 41                        00295000
      IF(INDSGT.EQ.11) GO TO 41                                         00296000
      IF (CRSIND(ICRUS).EQ.4.0.OR.CRSIND(ICRUS).EQ.6.0) GO TO 42        00297000
      WRITE(6,9000) VIN(ICRUS),TEMP                                     00298000
      GO TO 43                                                          00299000
 42   WRITE(6,9003) VIN(ICRUS),TEMP                                     00300000
 43   IF (CRSIND(ICRUS).GT.4.0) WRITE(6,9004) WOVDEL                    00301000
      WRITE(6,9001)                                                     00302000
 9004 FORMAT(7X,*CRUISE-CLIMB AT CONSTANT W/DELTA = *,F8.0)             00303000
      IF (KPRINT.EQ.1) WRITE(6,9005)                                    00304000
 41   IF (ENGIND.NE.0.0) ETAP = 1.0                                     00305000
 9003 FORMAT(/7X,*CRUISE AT SPEED FOR 99 PER CENT BEST RANGE WITH HEADWI00306000
     1ND OF *,F5.1,* KNOTS*,10X,*TEMPERATURE =*,F6.1,1X,*DEG.F*)        00307000
      AN2MAX  =  AN2M4(ICRUS)                                           00308000
      ITAB=0                                                            00309000
      YLS2 = (ENP - ENPSD(ICRUS)) / ENP                                 00310000
      YLS1 = 1. / YLS2                                                  00311000
      INDATM=ATMIND(ICRUS+30)                                           00312000
      LC1 = 0                                                           00313000
      LC2 = 0                                                           00314000
      LC3=0                                                             00315000
      LC4=0                                                             00316000
      LC5=0                                                             00317000
      LC9 = 0                                                           00318000
 52   VMAX = VM0/SQRT(SIGMA)                                            00319000
      IF (VMAX.GT.(SA*EMM0)) VMAX = SA*EMM0                             00320000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 1                            00321000
      IF(INDSGT.EQ.11) GO TO 1                                          00322000
      VLMT = 250./SQRT(SIGMA)                                           00323000
      IF (VMAX.GT.VLMT) VMAX = VLMT                                     00324000
 1    IF (INOPTH.EQ.0.AND.INDIC.EQ.0) V = VMAX                          00325000
      IF (INOPTH.EQ.1.AND.WFTOTO.EQ.0.0) V = VMAX                       00326000
      IF (V.GT.VMAX) V = VMAX                                           00327000
      IF(ETAIND.EQ.1.0.OR.ETAIND.EQ.3.0) GO TO 31                       00328000
      GO TO 2                                                           00329000
 31   LC3 = LC3 + 1                                                     00330000
      Q = 1.42636*RHO*V**2                                              00331000
      EM = V/SA                                                         00332000
      CL = W/(SW*Q)                                                     00333000
      CALL DRAG                                                         00334000
      IF(NEXT.NE.0) RETURN                                              00335000
      CD = CD + DLCDCR(ICRUS)                                           00336000
      TT3 = CD*SW*Q                                                     00337000
      P = A2STR*VT                                                      00338000
      CCT = (PI**3)*TT3*WGA/(0.009507*SIGMA*WG*P**2)                    00339000
      IF(ETAIND.NE.3.0) GO TO 447                                       00340000
      TOAD=CCT*(P/STHETA)**2/3261.21                                    00341000
      IF(TOAD.LE.CPPROP(NOCPP)) GO TO 224                               00342000
      GO TO 448                                                         00343000
  447 IF(CCT.LE.CPPROP(NOCPP)) GO TO 224                                00344000
  448 V=V-10.                                                           00345000
      IF (V.LE.100.) GO TO 11                                           00346000
      GO TO 31                                                          00347000
    2 EM=V/SA                                                           00348000
      Q=1.42636*RHO*V**2                                                00349000
  222 LC3=LC3 + 1                                                       00350000
      CL=W/(SW*Q)                                                       00351000
      CALL DRAG                                                         00352000
      IF(NEXT.NE.0)RETURN                                               00353000
      CD  = CD + DLCDCR(ICRUS)                                          00354000
 224  IF (ENGIND.NE.0.0) GO TO 3                                        00355000
      IF (ETAIND.NE.0.0) GO TO 26                                       00356000
      ETAP4=XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                             00357000
      ETAP = ETAP4                                                      00358000
      IF(M.NE.0)WRITE(6,1001)                                           00359000
 26   CALL POWAVL(TNRP,EM)                                              00360000
      TKE = TPEA                                                        00361000
      KE  = NPLIM +1                                                    00362000
      BLP  = SHPA                                                       00363000
      BHPSUP= BLP * BHPP * DELTA * STHETA                               00364000
      BHPA  = BHPSUP * YLS2                                             00365000
      IF (ETAIND.NE.0.0) GO TO 29                                       00366000
      BHPR=CD*SW*Q*V/(325.8*ETAP4*ETAT) + DSHPAC                        00367000
      GO TO 28                                                          00368000
 29   TPROP = CD*SW*Q                                                   00369000
      CALL POWER(TPROP,YLS2,ETAP)                                       00370000
      BHPR = SHPR*BHPP*DELTA*STHETA*YLS2                                00371000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00372000
 28   IF (BHPA.GE.BHPR) GO TO 4                                         00373000
      F = WSHPA*DELTA*STHETA*BHPP*YLS2                                  00374000
      IF (LC5.EQ.0) GO TO 62                                            00375000
      IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 6                         00376000
      IF(INDSGT.EQ.11) GO TO 6                                          00377000
      IF (LC9.EQ.0) WRITE(6,92)                                         00378000
 92   FORMAT(10X,*+++ CAUTION - SPEED LIMITED BY POWER AVAILABLE AT SPEC00379000
     1IFIED POWER SETTING +++*)                                         00380000
      LC9 = 1                                                           00381000
      GO TO 6                                                           00382000
 62   EN1 = 0.0                                                         00383000
      GO TO 77                                                          00384000
    3 CALL THRAVL(TNRP,EM)                                              00385000
      TKE = TPEA                                                        00386000
      KE  = NPLIM +1                                                    00387000
      TLP = SHPA                                                        00388000
      TSUBP = TLP * DELTA * TP                                          00389000
      TA    = TSUBP * YLS2                                              00390000
      TR=CD*SW*Q                                                        00391000
      IF(TA.GE.TR)GO TO 8                                               00392000
      F = WSHPA*DELTA*STHETA*TP*YLS2                                    00393000
      IF (LC5.EQ.0) GO TO 82                                            00394000
      IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 6                         00395000
      IF(INDSGT.EQ.11) GO TO 6                                          00396000
      IF (LC9.EQ.0) WRITE(6,112)                                        00397000
 112  FORMAT(10X,*+++ CAUTION - SPEED LIMITED BY THRUST AVAILABLE AT SPE00398000
     1CIFIED POWER SETTING *)                                           00399000
      LC9 = 1                                                           00400000
      GO TO 6                                                           00401000
 82   EN1 = 0.0                                                         00402000
      GO TO 77                                                          00403000
    4 BHPA = BHPR                                                       00404000
      BHPSUP= BHPA * YLS1                                               00405000
      BLP   = BHPSUP /(BHPP * DELTA * STHETA)                           00406000
      SHPR = BLP                                                        00407000
      CALL  POWREQ(EM)                                                  00408000
      TKE = TPEA                                                        00409000
      KE = 6                                                            00410000
      F = WSHPR*DELTA*STHETA*BHPP*YLS2                                  00411000
      GOTO9                                                             00412000
 5    IF (CRSIND(ICRUS).NE.4.0.AND.CRSIND(ICRUS).NE.6.0) GO TO 6        00413000
      IF (LC6.EQ.0) GO TO 17                                            00414000
      IF (EN2.GT.EN3) GO TO 27                                          00415000
      GO TO 6                                                           00416000
 17   EN3 = 0.99*EN1                                                    00417000
      LC6 = 1                                                           00418000
 27   V = V - 0.5                                                       00419000
      GO TO 13                                                          00420000
 6    EN = EN1                                                          00421000
      VSAVE = V                                                         00422000
      GOTO10                                                            00423000
 7    EN1 = (V - VIN(ICRUS))/F                                          00424000
   77 V  = V -10.0                                                      00425000
      IF (INDIC.EQ.1) V = V + 5.                                        00426000
      GOTO11                                                            00427000
    8 TA = TR                                                           00428000
      TSUBP = TA * YLS1                                                 00429000
      TLP=TSUBP /(DELTA * TP)                                           00430000
      SHPR = TLP                                                        00431000
      CALL  THRREQ(EM)                                                  00432000
      TKE = TPEA                                                        00433000
      KE = 6                                                            00434000
      F = WSHPR*DELTA*STHETA*TP*YLS2                                    00435000
    9 LC5=1                                                             00436000
      IF(LC3.LT.2)GO TO 7                                               00437000
      EN2 = (V - VIN(ICRUS))/F                                          00438000
      IF(EN2.GT.EN1)GOTO12                                              00439000
      IF(LC4.NE.1)GO TO 13                                              00440000
      GO TO 5                                                           00441000
   11 IF(V.GT.100.)GO TO 2                                              00442000
 33   IF (INOPTH.EQ.1) GO TO 613                                        00443000
      WRITE(6,5224)                                                     00444000
      WRITE(6,1006)                                                     00445000
      WRITE(6,NCRUS3)                                                   00446000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00447000
      WRITE(6,5224)                                                     00448000
 613  NEXT = 1                                                          00449000
      RETURN                                                            00450000
   12 IF(LC4.NE.1)GO TO 16                                              00451000
   13 V=V+1.                                                            00452000
      IF (V.GT.VMAX) V = VMAX                                           00453000
      IF (V.GE.VMAX) GO TO 6                                            00454000
      IF(ETAIND.EQ.0.0.OR.ETAIND.EQ.2.0) GO TO 32                       00455000
      Q = 1.42636*RHO*V**2                                              00456000
      EM = V/SA                                                         00457000
      CL = W/(SW*Q)                                                     00458000
      CALL DRAG                                                         00459000
      IF (NEXT.NE.0) RETURN                                             00460000
      CD = CD + DLCDCR(ICRUS)                                           00461000
      TT3 = CD*SW*Q                                                     00462000
      P = A2STR*VT                                                      00463000
      CCT = (PI**3)*TT3*WGA/(0.009507*SIGMA*WG*P**2)                    00464000
      IF(ETAIND.NE.3.0) GO TO 449                                       00465000
      TOAD=CCT*(P/STHETA)**2/3261.21                                    00466000
      IF(TOAD.GT.CPPROP(NOCPP)) GO TO 33                                00467000
      GO TO 450                                                         00468000
  449 IF(CCT.GT.CPPROP(NOCPP)) GO TO 33                                 00469000
  450 CONTINUE                                                          00470000
 32   EN1 = EN2                                                         00471000
      LC4=1                                                             00472000
      GOTO11                                                            00473000
   16 EN1=EN2                                                           00474000
      V=V-10.                                                           00475000
      IF (INDIC.EQ.1) V = V + 5.                                        00476000
      GOTO11                                                            00477000
 10   IF (INOPTH.EQ.1) RETURN                                           00478000
      IF(OPTIND.EQ.1.0) GO TO 111                                       00479000
      EAS=V*SQRT(SIGMA)                                                 00480000
      IF(ENGIND.EQ.0.) GO TO 4256                                       00481000
      VQ=TSUBP/(DELTA*TP)                                               00482000
      CALL  THRAVL(TMAX,EM)                                             00483000
      GOTO 4257                                                         00484000
 4256 VQ=BHPSUP/(DELTA*STHETA*BHPP)                                     00485000
      CALL  POWAVL(TMAX,EM)                                             00486000
 4257 ANICE  = SHPA                                                     00487000
      PETF=VQ/ANICE                                                     00488000
      PEHF=PETF                                                         00489000
      IF(INDSGT.EQ.11) RETURN                                           00490000
  111 ITAB = ITAB + 1                                                   00491000
      IF (ITAB.GT.10) GO TO 900                                         00492000
   22 RRR(ITAB) = R                                                     00493000
      STSTST(ITAB)= ST                                                  00494000
      WWW(ITAB) = W                                                     00495000
      WFWFWF(ITAB) = WF                                                 00496000
      VVV(ITAB)    = V                                                  00497000
      ENENEN(ITAB) = EN                                                 00498000
      EASEAS(ITAB) = EAS                                                00499000
      EMEMEM(ITAB) = EM                                                 00500000
      EMDEMD(ITAB) = EMD                                                00501000
      PEHFPE(ITAB) = PEHF                                               00502000
      TKETKE(ITAB)  = TKE                                               00503000
      EOEOEO(ITAB)  = EO(KE)                                            00504000
      ETAETA(ITAB) = ETAP                                               00505000
      HHH(ITAB) = H                                                     00506000
      IF (KPRINT.EQ.1.AND.OPTIND.EQ.2.0) CALL SCRIBE(ITAB,ETAP,YLS2)    00507000
      IC2D=ITAB                                                         00508000
      IRMAX=ICRUS                                                       00509000
      IF (LC1.EQ.1) GO TO 22267                                         00510000
      IF (LC2.EQ.1) GO TO 621                                           00511000
      NQUO = R / DELR(ICRUS) + .05                                      00512000
      YALE22 = NQUO + 1                                                 00513000
      R9     = YALE22 * DELR(ICRUS)                                     00514000
      LC2 = 1                                                           00515000
      DELR1 = R9 - R                                                    00516000
      IF (R9.GT.RMAX1) GO TO 901                                        00517000
      GO TO 333                                                         00518000
 621  R9 = R + DELR(ICRUS)                                              00519000
 622  IF (R9.GT.RMAX1) GO TO 901                                        00520000
      DELR1 = DELR(ICRUS)                                               00521000
      GO TO 333                                                         00522000
 901  DELR1 = RMAX1 - R                                                 00523000
      LC1 = 1                                                           00524000
 333  R = R + DELR1                                                     00525000
      ST = ST + DELR1/(V-VIN(ICRUS))                                    00526000
      WF = WF + DELR1/EN                                                00527000
      W = W - DELR1/EN                                                  00528000
      LC3=0                                                             00529000
      LC4=0                                                             00530000
      LC5=0                                                             00531000
      LC6 = 0                                                           00532000
      INDIC = 1                                                         00533000
      IF (CRSIND(ICRUS).EQ.3.0.OR.CRSIND(ICRUS).EQ.4.0) GO TO 222       00534000
      DELTA = W/WOVDEL                                                  00535000
      IF (H.GT.36089.) GO TO 83                                         00536000
      H = (1.0 - DELTA**(1./5.2561))/6.875E-06                          00537000
      GO TO 84                                                          00538000
 83   H = 4931.4 - 20786.0*(ALOG(DELTA))                                00539000
 84   CALL ATMOS(H,ATMIND(ICRUS+30),TIN(ICRUS+30))                      00540000
      GO TO 52                                                          00541000
 900  IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 907                       00542000
      WRITE(6,9002) STSTST(1),RRR(1),WFWFWF(1),WWW(1),                  00543000
     1HHH(1),VVV(1),TKETKE(1),EOEOEO(1),PEHFPE(1),EASEAS(1),EMEMEM(1),  00544000
     2EMDEMD(1),ENENEN(1),ETAETA(1)                                     00545000
      IF (KPRINT.EQ.0)GO TO 907                                         00546000
      WRITE(6,9006) CLCLCL(1),CDCDCD(1),ALDALD(1),ELLELL(1),DEEDEE(1),  00547000
     1 FFF(1),BHPBHP(1),TPTPTP(1),CCPCCP(1),CCTCCT(1),AJAJAJ(1),PPP(1)  00548000
      DO 13146 I = 1,9                                                  00549000
      PPP(I) = PPP(I+1)                                                 00550000
      CLCLCL(I) = CLCLCL(I+1)                                           00551000
      CDCDCD(I) = CDCDCD(I+1)                                           00552000
      ALDALD(I) = ALDALD(I+1)                                           00553000
      ELLELL(I) = ELLELL(I+1)                                           00554000
      DEEDEE(I) = DEEDEE(I+1)                                           00555000
      FFF(I) = FFF(I+1)                                                 00556000
      BHPBHP(I) = BHPBHP(I+1)                                           00557000
      TPTPTP(I) = TPTPTP(I+1)                                           00558000
      CCPCCP(I) = CCPCCP(I+1)                                           00559000
      CCTCCT(I) = CCTCCT(I+1)                                           00560000
13146 AJAJAJ(I) = AJAJAJ(I+1)                                           00561000
 907  DO 13145 I = 1,9                                                  00562000
      RRR(I) = RRR(I+1)                                                 00563000
      STSTST(I) = STSTST(I+1)                                           00564000
      WFWFWF(I) = WFWFWF(I+1)                                           00565000
      ENENEN(I) = ENENEN(I+1)                                           00566000
      EASEAS(I) = EASEAS(I+1)                                           00567000
      EMEMEM(I) = EMEMEM(I+1)                                           00568000
      EMDEMD(I) = EMDEMD(I+1)                                           00569000
      PEHFPE(I) = PEHFPE(I+1)                                           00570000
      VVV(I)    = VVV(I+1)                                              00571000
      TKETKE(I)  =  TKETKE(I+1)                                         00572000
      EOEOEO(I)     = EOEOEO(I+1)                                       00573000
      ETAETA(I) = ETAETA(I+1)                                           00574000
      HHH(I) = HHH(I+1)                                                 00575000
13145 WWW(I) = WWW(I+1)                                                 00576000
      ITAB = ITAB - 1                                                   00577000
      GO TO 22                                                          00578000
C     EMPTY1  STANDS FOR THE NEXT  SGTIND (SET IN PRFRM LOOP)           00579000
C          IF EMPTY1 = 5.(DESCENT) WE DO NOT PRINT TABLE UNTIL DSCNT RT.00580000
22267 IF((OPTIND.NE.2.).OR.(EMPTY1.EQ.5.)) RETURN                       00581000
      IF (INOPTH.EQ.1) RETURN                                           00582000
      DO 13147 I = 1,ITAB                                               00583000
      WRITE(6,9002)  STSTST(I),RRR(I),WFWFWF(I),WWW(I),HHH(I),VVV(I),   00584000
     1TKETKE(I),EOEOEO(I),PEHFPE(I),EASEAS(I),EMEMEM(I),EMDEMD(I),      00585000
     2 ENENEN(I),ETAETA(I)                                              00586000
      IF (KPRINT.EQ.1) WRITE(6,9006)  CLCLCL(I),CDCDCD(I),ALDALD(I),    00587000
     1 ELLELL(I),DEEDEE(I),FFF(I),BHPBHP(I),TPTPTP(I),CCPCCP(I),        00588000
     2 CCTCCT(I),AJAJAJ(I),PPP(I)                                       00589000
13147 CONTINUE                                                          00590000
      RETURN                                                            00591000
 1001 FORMAT(22X35HTHIS ERROR IS IN THE M-ETAP4 TABLE )                 00592000
 1006 FORMAT(/9X,39HINSUFFICIENT POWER AVAILABLE FOR CRUISE             00593000
     1       /9X,27HAT V GREATER THAN 100 KNOTS)                        00594000
      END                                                               00595000
      SUBROUTINE DRAG                                                   00001000
C**** MEMBER NAME = B93TDRAG                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      IF(INDDRG.EQ.1) GO TO 1                                           00257000
      EMD = SA1 + SA2 * CL                                              00258000
      IF(EM.LE.EMD) GO TO 2                                             00259000
      IF(EM.LE.(EMD+((SA3+SA4*CL**2)/10.)**(1./3.)))  GO TO 3           00260000
      WRITE (6,1001)                                                    00261000
 1001 FORMAT(9X,46HMACH NUMBER OUT OF RANGE FOR DRAG CALCULATIONS       00262000
     1      /9X,14HSET DRGIND = 1)                                      00263000
      NEXT=1                                                            00264000
      RETURN                                                            00265000
    3 DELCDM= 10. * (EM - EMD) ** 3                                     00266000
    4 CDWI  =  XLINT(TBCL1 ,TBCDWI,CL,NTCL ,M)                          00267000
      IF(M.NE.0) WRITE(6,1002)                                          00268000
 1002 FORMAT(22X,34HTHIS ERROR IS IN THE CL,CDWI TABLE)                 00269000
      CD  = SA5 + SA6*CDWI + CKW*DELCDM + SA7 * CL**2                   00270000
      RETURN                                                            00271000
    1 DELCDM=  XDLKP(CL,EM,TBCL2 ,TBEM ,TBCDM,NTCL2 ,NTEM  ,7     ,IERRX00272000
     1,IERRY)                                                           00273000
      IF(IERRX.NE.0) WRITE(6,1003)                                      00274000
 1003 FORMAT(9X,64HTHIS ERROR IS IN THE  CL  PART OF THE COMPRESSIBILITY00275000
     1 DRAG TABLE)                                                      00276000
      IF(IERRY.NE.0) WRITE(6,1004)                                      00277000
 1004 FORMAT(9X,64HTHIS ERROR IS IN THE  M   PART OF THE COMPRESSIBILITY00278000
     1 DRAG TABLE)                                                      00279000
      EMD = 0.                                                          00280000
      GO TO 4                                                           00281000
    2 DELCDM = 0.                                                       00282000
      GO TO 4                                                           00283000
      END                                                               00284000
      SUBROUTINE  DSCEX(IDSCNT)                                         00001000
C**** MEMBER NAME = B93TDSCX                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  OO3(2,3),EO(7)                                               00
      DATA  OO3(1,1)/4HCONS/ ,OO3(1,2)/4HTANT/ ,OO3(1,3)/4H EAS/        00258000
      DATA  OO3(2,1)/4HMACH/ ,OO3(2,2)/4H NUM/ ,OO3(2,3)/4HBER /        00259000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00261000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00262000
 8999 FORMAT(/7X15HDESCEND TO H = ,F6.0,10H FT. ,R = ,F8.2,10H N.MI. AT 00263000
     13A4)                                                              00264000
 9000 FORMAT(/7X15HDESCEND TO H = ,F6.0, 8H FT. AT ,3A4)                00265000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,11X18HTURB.  ENG.   PETF,19X4HMACH,  00266000
     19X5HTHETA,                                                        00267000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00268000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,3X5HGAMMA,4X2H-F,5X    00269000
     33HR/S,                                                            00270000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00271000
     53H(R),11X4HPEHF,25X5H(DEG),2X5H(DEG),4X5H(FPM))                   00272000
 9003 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00273000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP          00274000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00275000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,1X 00276000
     1F6.3,2XF6.1,3XF5.3,2XF5.3,2XF5.1,2XF5.1,3XF6.0)                   00277000
      IF ((DESIND(IDSCNT).EQ.5.0).OR.(DESIND(IDSCNT).EQ.6.0)) KOUT = 1  00278000
      IF ((DESIND(IDSCNT).EQ.7.0).OR.(DESIND(IDSCNT).EQ.8.0)) KOUT=2    00279000
      IF ((OPTIND.EQ.2).AND.((DESIND(IDSCNT).EQ.6.).OR.(DESIND(IDSCNT). 00280000
     1EQ.8.0))) WRITE(6,9000) HMIN(IDSCNT),(OO3(KOUT,I),I=1,3)          00281000
      IF ((OPTIND.EQ.2).AND.((DESIND(IDSCNT).EQ.7.).OR.(DESIND(IDSCNT). 00282000
     1EQ.5.0))) WRITE(6,8999) HMIN(IDSCNT),RMAX5(IDSCNT),(OO3(KOUT,I),  00283000
     2I=1,3)                                                            00284000
      IF (OPTIND.NE.2.0) GO TO 119                                      00285000
      WRITE(6,9001)                                                     00286000
      IF (KPRINT.EQ.1) WRITE(6,9003)                                    00287000
 119  RTHMIN = THEMIN(IDSCNT)*DTOR                                      00288000
      INDIC1 = 0                                                        00289000
      INDIC2 = 0                                                        00290000
      YLS2 = 1.0                                                        00291000
      RALFL0  = ALPHL0  * DTOR                                          00292000
      REYEW   = EYEW  * DTOR                                            00293000
      IPRT  =0                                                          00294000
      DELTAH  = 0.0                                                     00295000
      BHPR = 1.0                                                        00296000
      ETAP = ETAP5                                                      00297000
      LC1 = 0                                                           00298000
      LC2 = 0                                                           00299000
      IF (DESIND(IDSCNT).NE.5.0.AND.DESIND(IDSCNT).NE.7.0) GO TO 1      00300000
      IF (RMAX5(IDSCNT).EQ.R) GO TO 95                                  00301000
      GSTAR = ATAN((HMIN(IDSCNT) - H)/((RMAX5(IDSCNT) - R)*6076.1))     00302000
      GO TO 1                                                           00303000
 95   GSTAR = -89.9*DTOR                                                00304000
    1 HH  = H                                                           00305000
      INDATM  =  ATMIND(IDSCNT+40)                                      00306000
      CALL  ATMOS(HH,ATMIND(IDSCNT+40),TIN(IDSCNT+40))                  00307000
      V2  = EAS5(IDSCNT) / (SIGMA**.5)                                  00308000
      EM  = V2 / SA                                                     00309000
      IF (DESIND(IDSCNT).LE.6.)  GO TO 333                              00310000
      V2  = EAS5(IDSCNT) * SA                                           00311000
      EM  = EAS5(IDSCNT)                                                00312000
  333 VMAX = VM0 / SQRT(SIGMA)                                          00313000
      IF (VMAX.GT.(SA*EMM0)) VMAX = SA *EMM0                            00314000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 116                          00315000
      VLMT = 250./SQRT(SIGMA)                                           00316000
      IF (VMAX.LE.VLMT) GO TO 116                                       00317000
      VMAX = VLMT                                                       00318000
      IF (INDIC2.EQ.0) INDIC1 = 1                                       00319000
 116  IF (VMAX.LT.V2) V2 = VMAX                                         00320000
      EM  = V2 / SA                                                     00321000
    3 Q   = 1.42636 * RHO * V2**2                                       00322000
      PHI = 1.0                                                         00323000
      IF (DELTAH.NE.0.)  PHI = 1.0 - V2*(V2-  V1 )/(11.278 * DELTAH)    00324000
      IF((DESIND(IDSCNT).EQ.6.).OR.(DESIND(IDSCNT).EQ.8.)) GO TO 20     00325000
C                                                                       00326000
C                                                                       00327000
      CL    =  W *COS(GSTAR) /(SW *Q)                                   00328000
      CALL  DRAG                                                        00329000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00330000
      IF (NEXT.NE.0)  RETURN                                            00331000
      IF (ENGIND.NE.0.) GO TO  40                                       00332000
      BSHPR = V2*(W*PHI*SIN(GSTAR)+CD*SW*Q)/(325.6365*ETAT*ETAP5)       00333000
     1   + DSHPAC/ETAT                                                  00334000
      BSHPR  =  BSHPR /(BHPP *DELTA *STHETA)                            00335000
      CALL  POWAVL(TFI,EM)                                              00336000
      TKE  = TPEA                                                       00337000
      KE   = NPLIM + 1                                                  00338000
      IF (SHPA.GT.BSHPR)  GO TO 60                                      00339000
      CALL  POWAVL(TNRP,EM)                                             00340000
      IF (SHPA.LT.BSHPR)  GO TO 200                                     00341000
      LC2  = 1                                                          00342000
      GAMM2 = GSTAR                                                     00343000
      GO TO 80                                                          00344000
   20 GSTAR = 0.0                                                       00345000
      IF (ENGIND.NE.0.) GO TO 25                                        00346000
      CALL  POWAVL(TFI,EM)                                              00347000
      TKE = TPEA                                                        00348000
      KE  = NPLIM +1                                                    00349000
      SHPR = SHPA                                                       00350000
      GO TO 60                                                          00351000
   25 CALL  THRAVL(TFI,EM)                                              00352000
      TKE  = TPEA                                                       00353000
      KE   = NPLIM + 1                                                  00354000
      SHPR = SHPA                                                       00355000
      GO TO 120                                                         00356000
   40 BFNR   =  W* PHI* SIN(GSTAR) + CD * SW *Q                         00357000
      BFNR   = BFNR / (DELTA * TP)                                      00358000
      CALL  THRAVL(TFI,EM)                                              00359000
      TKE  = TPEA                                                       00360000
      KE   = NPLIM + 1                                                  00361000
      IF (SHPA.GT.BFNR)  GO TO 120                                      00362000
      CALL  THRAVL(TNRP,EM)                                             00363000
      IF (SHPA.LT.BFNR)  GO TO 200                                      00364000
      LC2 = 1                                                           00365000
      GAMM2 =GSTAR                                                      00366000
      GO TO  80                                                         00367000
  120 LC1  = 1                                                          00368000
      GAMM1 = GSTAR                                                     00369000
      SHPR = SHPA                                                       00370000
      BFNA  = SHPA * DELTA * TP                                         00371000
   42 CL    = W * COS(GAMM1) / (SW *Q)                                  00372000
      CALL  DRAG                                                        00373000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00374000
      GAMM2 = ARSIN((BFNA -CD*SW*Q)/(W*PHI))                            00375000
      IF((ABS(GAMM2-GAMM1)*RTOD).LE..1) GO TO 80                        00376000
      GAMM1 = GAMM2                                                     00377000
      GO TO 42                                                          00378000
   60 LC1  = 1                                                          00379000
      GAMM1 = GSTAR                                                     00380000
      SHPR = SHPA                                                       00381000
      BSHPA = SHPA * DELTA * STHETA * BHPP                              00382000
   62 CL    = W * COS(GAMM1) / (SW *Q)                                  00383000
      CALL  DRAG                                                        00384000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00385000
      GAMM2 = ARSIN((325.8*ETAT*ETAP5 * BSHPA/V2 -CD*SW*Q) /(W*PHI))    00386000
      IF ((ABS(GAMM2-GAMM1)*RTOD).LE..1)GO TO 80                        00387000
      GAMM1 = GAMM2                                                     00388000
      GO TO 62                                                          00389000
   80 THETAF  = GAMM2 + RALFL0 - REYEW  + CL/CLALPH                     00390000
      IF (THETAF.LT.RTHMIN) GO TO 85                                    00391000
      IF (ENGIND.NE.0.) GO TO 140                                       00392000
      GO TO 160                                                         00393000
   85 LC1  = 1                                                          00394000
      GAMM1  = GAMM2                                                    00395000
   86 GAMM2  = RTHMIN  -RALFL0 +REYEW -CL/CLALPH                        00396000
      IF ((ABS(GAMM2-GAMM1)*RTOD).LE..1) GO TO 90                       00397000
      GAMM1  = GAMM2                                                    00398000
      CL   = W *COS(GAMM1) /(SW*Q)                                      00399000
      GO TO  86                                                         00400000
   90 IF (ENGIND.NE.0) GO TO 100                                        00401000
      BSHPR = V2*(CD*SW*Q+W*PHI*SIN(GAMM2))/(325.6365*ETAT*ETAP5)       00402000
     1  +  DSHPAC/ETAT                                                  00403000
      BSHPR = BSHPR / (BHPP * DELTA * STHETA)                           00404000
      IF (LC2.EQ.1) GO TO 92                                            00405000
      CALL  POWAVL(TNRP,EM)                                             00406000
      LC2  = 1                                                          00407000
   92 IF (BSHPR.GT.SHPA) GO TO 200                                      00408000
      GO TO 160                                                         00409000
  100 BFNR  = CD*SW*Q +W*PHI*SIN(GAMM2)                                 00410000
C **  DSHPAC DOES NOT HAVE TO BE ACCOUNTED FOR HERE SINCE THE           00411000
C     CALCULATION PERTAINS TO TURBOFAN,JET ENGINES                      00412000
      BFNR  = BFNR / (TP * DELTA)                                       00413000
      IF (LC2.EQ.1) GO TO 102                                           00414000
      CALL  THRAVL(TNRP,EM)                                             00415000
      LC2  = 1                                                          00416000
  102 IF (BFNR.GT.SHPA) GO TO 200                                       00417000
  140 IF (LC2.NE.1) GO TO 142                                           00418000
      SHPR  = BFNR                                                      00419000
      CALL  THRREQ(EM)                                                  00420000
      TKE  = TPEA                                                       00421000
      KE  = 6                                                           00422000
      WSHPA  = WSHPR                                                    00423000
  142 F   = WSHPA * DELTA * STHETA * TP                                 00424000
      CALL THRAVL(TMAX,EM)                                              00425000
      GO  TO 170                                                        00426000
  160 IF (LC2.NE.1) GO TO 162                                           00427000
      SHPR  = BSHPR                                                     00428000
C **  DSHPAC IS ALREADY ACCOUNTED FOR IN BSHPR                          00429000
      CALL  POWREQ(EM)                                                  00430000
      TKE  = TPEA                                                       00431000
      KE  = 6                                                           00432000
      WSHPA  = WSHPR                                                    00433000
  162 F   = WSHPA * DELTA * STHETA * BHPP                               00434000
      CALL POWAVL(TMAX,EM)                                              00435000
  170 RS  = -101.34 * V2 * SIN(GAMM2)                                   00436000
      GAMMA  = GAMM2                                                    00437000
      THETAF = GAMM2 + RALFL0 - REYEW + CL/CLALPH                       00438000
      PEHF =  SHPR/SHPA                                                 00439000
C **  SHPR INCLUDES DSHPAC AT THIS POINT                                00440000
      PETF = PEHF                                                       00441000
      V   = V2                                                          00442000
      EAS = V2 *(SIGMA**.5)                                             00443000
      DG  = GAMMA * RTOD                                                00444000
      DTF = THETAF*RTOD                                                 00445000
      IF (OPTIND.NE.2.0) GO TO 139                                      00446000
      WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,EAS,EM,EMD,DG,DTF,RS  00447000
      IF (KPRINT.EQ.1) CALL SCRIBE(0,ETAP,YLS2)                         00448000
C                                                                       00449000
 139  IF (H.LE.HMIN(IDSCNT)) GO TO 190                                  00450000
      DELTAH = DELH5(IDSCNT)                                            00451000
      IF ((H-DELTAH).LT.HMIN(IDSCNT)) DELTAH = H-HMIN(IDSCNT)           00452000
      H = H - DELTAH                                                    00453000
      V1 = V2                                                           00454000
      R  =  R - DELTAH/(6076.1 * TAN(GAMMA))                            00455000
      ST  = ST + DELTAH/(60.0 * RS)                                     00456000
      W  =  W - F *DELTAH /(60.*RS)                                     00457000
      WF =  WF+ F *DELTAH /(60.*RS)                                     00458000
      LC2 = 0                                                           00459000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 1                            00460000
      IF (INDIC1.EQ.1) GO TO 1                                          00461000
      DELTAH = 0.0                                                      00462000
      INDIC1 = 0                                                        00463000
      INDIC2 = 1                                                        00464000
      GO TO 1                                                           00465000
  190 IF (LC1.NE.1) RETURN                                              00466000
      IF((DESIND(IDSCNT).EQ.6.).OR.(DESIND(IDSCNT).EQ.8.)) RETURN       00467000
C                                                                       00468000
      R  =  RMAX5(IDSCNT)                                               00469000
  999 FORMAT(10X,28HSPIRAL DESCENT PATH REQUIRED)                       00470000
      IF (OPTIND.EQ.2.)  WRITE(6,999)                                   00471000
      RETURN                                                            00472000
  200 WRITE(6,998)                                                      00473000
  998 FORMAT(10X,64HDESCENT CONDITION IMPOSSIBLE, DESIRED FLIGHT PATH IS00474000
     1 TOO SHALLOW)                                                     00475000
      NEXT = 1                                                          00476000
      RETURN                                                            00477000
      END                                                               00478000
      SUBROUTINE DSCNT(IDSCNT)                                          00001000
C**** MEMBER NAME = B93TDSNT                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC. 2201 TO LOC.2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10),TKETKE(10),EOEOEO(10),HHH(10),ETAETA(10)    00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      DIMENSION DATA(1)                                                 00257000
      EQUIVALENCE (DATA(1),OPTIND)                                      00258000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00259000
      DIMENSION  EO(7),OO3(2,3)
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00261000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00262000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00263000
     19X5HTHETA,                                                        00264000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00265000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,3X5HGAMMA,4X2H-F,5X    00266000
     33HR/S,                                                            00267000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00268000
     53H(R),11X4HPEHF,25X5H(DEG),2X5H(DEG),4X5H(FPM))                   00269000
 9006 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00270000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP,2X4HETAP 00271000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00272000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,1X 00273000
     1F6.3,2XF6.1,3XF5.3,2XF5.3,2XF5.1,2XF5.1,3XF6.0)                   00274000
 9005 FORMAT( 7XF6.3,5XF6.4,4XF6.3,4XF7.0,2XF7.0,2XF7.0,2XF7.0,         00275000
     1 6XF7.0,2XF6.4,1XF6.4,1XF6.3,3XF5.1/)                             00276000
10001 FORMAT(9X,61HDESCENT CONDITION IMPOSSIBLE  R/S IS LESS THAN OR EQU00277000
     1AL TO 0.)                                                         00278000
 9000 FORMAT(/7X15HDESCEND TO H = ,F6.0, 8H FT. AT ,3A4)                00279000
 8999 FORMAT(/7X15HDESCEND TO H = ,F6.0,10H FT. ,R = ,F8.2,10H N.MI. AT 00280000
     13A4)                                                              00281000
      DATA  OO3(1,1)/4HMAX./ ,OO3(1,2)/4H SPE/ ,OO3(1,3)/4HED  /        00283000
      DATA  OO3(2,1)/4HFLIG/ ,OO3(2,2)/4HHT I/ ,OO3(2,3)/4HDLE /        00284000
      NAMELIST/NDSCNT/RTOL,RTHMIN,RALFL0,REYEW,HSTAR,IPRT,R,RSTAR,WSTAR,00285000
     1WFSTAR,IEX,RRR,STSTST,WWW,W,ST,WF,INDATM,GAM1,H,V2,Q,EM,CL,GAM2,RS00286000
     2,PHI,ENGIND,BLP,BHPCRU,BHPIDL,BHPTHE,TLP,TCRUS,TIDLE,TTHETA,BHP,TH00287000
     3ETAF,DTF,SFC,F,T,TSFC,GAMMA,DG,V,DELTAH,V1,V2,PEHF,PETF,EAS,DGAM2,00288000
     4DCLCLF,IFUDGE                                                     00289000
      IFUDGE = IDSCNT                                                   00290000
      YLS2 = 1.0                                                        00291000
      INDIC1 = 0                                                        00292000
      INDIC2 = 0                                                        00293000
      ITAB = 0                                                          00294000
      ETAP = ETAP5                                                      00295000
      RTOL = 5.                                                         00296000
      RTHMIN   = THEMIN(IDSCNT) * DTOR                                  00297000
      RALFL0   = ALPHL0 * DTOR                                          00298000
      REYEW    = EYEW   * DTOR                                          00299000
      HSTAR    = H                                                      00300000
      IPRT=0                                                            00301000
      IF ((DESIND(IDSCNT).EQ.2.0).OR.(DESIND(IDSCNT).EQ.4.0)) LC1 = 1   00302000
      IF ((DESIND(IDSCNT).EQ.2.0).OR.(DESIND(IDSCNT).EQ.4.0)) GO TO 1   00303000
      RSTAR=R                                                           00304000
      WSTAR=W                                                           00305000
      WFSTAR=WF                                                         00306000
      LC1=0                                                             00307000
      IEX=0                                                             00308000
 7166 IEX = IEX + 1                                                     00309000
      IF (IEX.LE.2) GO TO 7167                                          00310000
      IF (R.GE.RRR(1)) GO TO 7168                                       00311000
      WRITE(6,5224)                                                     00312000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00313000
      WRITE(6,24811)                                                    00314000
24811 FORMAT(22X,47H*** ERROR *** THE RANGE NECESSARY TO DESCEND IS/    00315000
     1       22X,47HGREATER THAN THE RANGE OF THE TABLE CALCULATED /    00316000
     2       22X,50HIN CRUISE.  THIS MAY BE DUE TO A DELTA R IN CRUISE/ 00317000
     3       22X,20HWHICH WAS TOO SMALL.)                               00318000
      WRITE(6,5224)                                                     00319000
      WRITE(6,NDSCNT)                                                   00320000
      NEXT=1                                                            00321000
      RETURN                                                            00322000
 7167 IF (R.LT.RRR(1)) R = RRR(1)                                       00323000
 7168 W = XLINT(RRR,WWW,R,IC2D,M)                                       00324000
      IF(M.NE.0)WRITE(6,1089)                                           00325000
 1089 FORMAT(22X,45HTHIS ERROR IS IN THE RANGE VS WEIGHT TABLE   /      00326000
     1       22X,20HCREATED IN CRUISE   )                               00327000
      ST=XLINT(RRR,STSTST,R,IC2D,M)                                     00328000
      IF(M.NE.0)WRITE(6,1090)                                           00329000
 1090 FORMAT(22X,40HTHIS ERROR IS IN THE RANGE VS TIME TABLE/           00330000
     1       22X,20HCREATED IN CRUISE   )                               00331000
      H = XLINT(RRR,HHH,R,IC2D,M)                                       00332000
      IF (M.NE.0) WRITE(6,1091)                                         00333000
 1091 FORMAT(22X,*THIS ERROR IS IN THE RANGE VS ALTITUDE TABLE*/        00334000
     1    22X,*CREATED IN CRUISE*)                                      00335000
      WF  = WFSTAR-W+WSTAR                                              00336000
      INDATM    = ATMIND(IDSCNT + 40)                                   00337000
    1 GAM1     = 0.                                                     00338000
      LC6=0                                                             00339000
      LC7=0                                                             00340000
      HH       = H                                                      00341000
      CALL ATMOS(HH,ATMIND(IDSCNT+40),TIN(IDSCNT+40))                   00342000
      V2       = VM0 / SQRT(SIGMA)                                      00343000
      IF(V2.GE.(SA * EMM0)) V2    = SA * EMM0                           00344000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 2                            00345000
      VLMT = 250./SQRT(SIGMA)                                           00346000
      IF (V2.LE.VLMT) GO TO 2                                           00347000
      V2 = VLMT                                                         00348000
      IF (INDIC2.EQ.0) INDIC1 = 1                                       00349000
    2 Q        = 1.42636 * RHO * V2**2                                  00350000
      EM       = V2 / SA                                                00351000
      CL       = W * COS(GAM1) /(SW * Q)                                00352000
      GAM2     = RTHMIN  -  RALFL0  + REYEW  -  CL / CLALPH             00353000
      IF((ABS(GAM2-GAM1)*RTOD).LE..1) GO TO 3                           00354000
      GAM1     = GAM2                                                   00355000
      GO TO 2                                                           00356000
    3 CALL DRAG                                                         00357000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00358000
      IF(NEXT.NE.0)RETURN                                               00359000
      RS       = -V2 * SIN(GAM2) * 101.34                               00360000
      IF(RS.GT.0.) GO TO 4                                              00361000
 3331 WRITE (6,5224)                                                    00362000
      WRITE(6,10001)                                                    00363000
      WRITE(6,5224)                                                     00364000
      WRITE(6,NDSCNT)                                                   00365000
      NEXT=1                                                            00366000
      RETURN                                                            00367000
    4 PHI      = 1.                                                     00368000
      IF (INDIC1.EQ.1) GO TO 62                                         00369000
      IF(H.NE.HSTAR) PHI =1.-V2/11.278*(V2-V1)/DELTAH                   00370000
 62   IF (ENGIND.NE.0) GO TO 100                                        00371000
      CALL  POWAVL(TFI,EM)                                              00372000
      TKE =TPEA                                                         00373000
      KE  = NPLIM + 1                                                   00374000
      SHPR = SHPA                                                       00375000
      BLP = SHPA                                                        00376000
      BHPCRU   = BL   P * DELTA * S    THETA  * BHPP                    00377000
      BHPIDL   =          BHPCRU                                        00378000
      BHPTHE  = V2/(325.8*ETAT*ETAP5)*(CD*SW*Q -W*PHI*RS/               00379000
     C          (101.34 *V2))  +  DSHPAC/ETAT                           00380000
C **  ACCESSORY POWER IS ADDED TO THE POWER REQ. FOR DESCENT            00381000
      GO TO 3880                                                        00382000
  100 CALL  THRAVL(TFI,EM)                                              00383000
      TKE =TPEA                                                         00384000
      KE  = NPLIM + 1                                                   00385000
      SHPR = SHPA                                                       00386000
      TLP = SHPA                                                        00387000
      TCRUS    = TL   P * TP * DELTA                                    00388000
      TIDLE    =          TCRUS                                         00389000
      TTHETA   = CD * SW * Q  -  W * PHI * RS /(101.34 *V2)             00390000
 3880 IF (DESIND(IDSCNT).GT.2.) GO TO 200                               00391000
      IF(ENGIND.NE.0.) GO TO 110                                        00392000
      IF(BHPTHE.LT.BHPIDL)GO TO 5                                       00393000
      CALL POWAVL(TNRP,EM)                                              00394000
      BHPCRU = SHPA   * DELTA * STHETA * BHPP                           00395000
      IF(BHPTHE.GT.BHPCRU) GO TO 3267                                   00396000
C **  IF POWREQ IS GREATER THAN POWAVL GO TO 3267                       00397000
      BHP      = BHPTHE                                                 00398000
      THETAF   = THEMIN(IDSCNT)                                         00399000
      DTF = THETAF                                                      00400000
      GO TO 50                                                          00401000
    5 RS   = 101.34 * V2 /(W * PHI) * (CD * SW * Q  -  325.6365 * ETAP5 00402000
     C          *(BHPIDL - DSHPAC) / V2)                                00403000
C **  BHPIDL IS POWER AVAILABLE (NO XMSN EFFICIENCY NEEDED); ACCESSORY  00404000
C     POWER IS SUBTRACTED FROM THE THRUST X VELOCITY TERM IN THE RATE OF00405000
C     SINK EQUATION (FPM)                                               00406000
      GAM2     = ARSIN(-RS /(101.34 * V2))                              00407000
      IF((ABS(GAM2-GAM1)*RTOD).GT..1) GO TO 7                           00408000
      BHP      = BHPIDL                                                 00409000
      THETAF   = GAM2 + RALFL0 - REYEW + CL/CLALPH                      00410000
      DTF = THETAF * RTOD                                               00411000
      WSHPR  = WSHPA                                                    00412000
      SHPR  = SHPA                                                      00413000
      GO TO 51                                                          00414000
    7 GAM1     = GAM2                                                   00415000
      CL       = W * COS(GAM1) /(SW * Q)                                00416000
      CALL DRAG                                                         00417000
      CD  = CD + DLCDDS(IDSCNT)                                         00418000
      GO TO 5                                                           00419000
   50 BL   P   = BHP /(BHPP * DELTA * S    THETA )                      00420000
      SHPR  = BLP                                                       00421000
      CALL POWREQ(EM)                                                   00422000
      TKE =TPEA                                                         00423000
      KE  = 6                                                           00424000
   51 F   = WSHPR * DELTA * STHETA * BHPP                               00425000
      GO TO 300                                                         00426000
  110 IF(TTHETA.LT.TIDLE) GO TO 120                                     00427000
      CALL  THRAVL(TNRP,EM)                                             00428000
      TCRUS  = SHPA   * DELTA *          TLP                            00429000
      IF(TTHETA.GT.TCRUS)  GO TO 3267                                   00430000
  130 T        = TTHETA                                                 00431000
      THETAF   = THEMIN(IDSCNT)                                         00432000
      DTF = THETAF                                                      00433000
      GO TO 150                                                         00434000
  120 RS       = 101.34 * V2 /(W * PHI) * (CD * SW * Q  -  TIDLE)       00435000
      GAM2     = ARSIN(-RS /(101.34 * V2))                              00436000
      IF((ABS(GAM2-GAM1)*RTOD).GT..1) GO TO 121                         00437000
      T        = TIDLE                                                  00438000
      THETAF   = GAM2 + RALFL0 - REYEW + CL/CLALPH                      00439000
      DTF = THETAF * RTOD                                               00440000
      WSHPR  = WSHPA                                                    00441000
      SHPR  = SHPA                                                      00442000
      GO TO 151                                                         00443000
  121 GAM1     = GAM2                                                   00444000
      CL       = W * COS(GAM1) /(SW * Q)                                00445000
      CALL DRAG                                                         00446000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00447000
      IF(NEXT.NE.0) RETURN                                              00448000
      GO  TO  120                                                       00449000
  150 TL   P   = T /(DELTA * TP)                                        00450000
      SHPR = TLP                                                        00451000
      CALL  THRREQ(EM)                                                  00452000
      TKE =TPEA                                                         00453000
      KE  = 6                                                           00454000
  151 F   = WSHPR * DELTA * STHETA * TP                                 00455000
  300 GAMMA    = GAM2                                                   00456000
      DG  = GAMMA  * RTOD                                               00457000
      V        = V2                                                     00458000
      IF(LC1.EQ.1)GO TO 3926                                            00459000
 4027 IF(H.EQ.HMIN(IDSCNT))GO TO 3927                                   00460000
      IF(HMIN(IDSCNT).GT.(H-DELH5(IDSCNT))) GO TO 3928                  00461000
      DELTAH= DELH5(IDSCNT)                                             00462000
      H=H-DELTAH                                                        00463000
 3929 V1=V2                                                             00464000
      R=R-DELTAH/(6076.1*SIN(GAMMA)/COS(GAMMA))                         00465000
      ST = ST + DELTAH/(RS * 60.)                                       00466000
      W=W - F *DELTAH/(RS*60.)                                          00467000
      WF=WF+F *DELTAH/(RS*60.)                                          00468000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 1                            00469000
      IF (INDIC1.EQ.0) GO TO 1                                          00470000
      INDIC1 = 0                                                        00471000
      INDIC2 = 1                                                        00472000
      GO TO 1                                                           00473000
 3928 DELTAH = H - HMIN(IDSCNT)                                         00474000
      H = HMIN(IDSCNT)                                                  00475000
      GO TO 3929                                                        00476000
 3927 IF(LC1.EQ.1)RETURN                                                00477000
      IF (ABS(R-RMAX5(IDSCNT)).LE.RTOL) LC1=1                           00478000
      R  = RSTAR + RMAX5(IDSCNT) -R                                     00479000
      H = HSTAR                                                         00480000
      RSTAR=R                                                           00481000
      GO TO 7166                                                        00482000
 3926 IF(OPTIND.NE.2.) GO TO 4027                                       00483000
      IPRT = IPRT + 1                                                   00484000
      IF ((DESIND(IDSCNT).EQ.2.).OR.(DESIND(IDSCNT).EQ.4.)) GO TO 4026  00485000
      IF(IPRT.NE.1)GO TO 4026                                           00486000
      DO 4151 J=1,IC2D                                                  00487000
      IF (RRR(J).GT.R) GO TO 4151                                       00488000
      KEO = J                                                           00489000
      WRITE(6,9004) STSTST(J),RRR(J),WFWFWF(J),WWW(J),                  00490000
     1HHH(J),VVV(J),TKETKE(J),EOEOEO(J),PEHFPE(J),                      00491000
     2 EASEAS(J),EMEMEM(J),EMDEMD(J),ENENEN(J),ETAETA(J)                00492000
      IF (KPRINT.EQ.0) GO TO 4151                                       00493000
      WRITE(6,9005) CLCLCL(J),CDCDCD(J),ALDALD(J),ELLELL(J),DEEDEE(J),  00494000
     1 FFF(J),BHPBHP(J),TPTPTP(J),CCPCCP(J),CCTCCT(J),AJAJAJ(J),PPP(J)  00495000
 9004 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00496000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,3XF6.5,3XF5.3)                          00497000
 4151 CONTINUE                                                          00498000
      XTRA1T= XLINT(RRR,STSTST,R,IC2D,M)                                00499000
      XTRA2W= XLINT(RRR,WFWFWF,R,IC2D,M)                                00500000
      XTRA3W= XLINT(RRR,WWW   ,R,IC2D,M)                                00501000
      XTRA4V= XLINT(RRR,VVV   ,R,IC2D,M)                                00502000
      XTRATP  = XLINT(RRR,TKETKE,R,IC2D,M)                              00503000
      XTRAEO  =  EOEOEO(KEO)                                            00504000
      XTRA5P= XLINT(RRR,PEHFPE,R,IC2D,M)                                00505000
      XTRA6E= XLINT(RRR,EASEAS,R,IC2D,M)                                00506000
      XTRA7M= XLINT(RRR,EMEMEM,R,IC2D,M)                                00507000
      XTRA8D= XLINT(RRR,EMDEMD,R,IC2D,M)                                00508000
      XTRA9N= XLINT(RRR,ENENEN,R,IC2D,M)                                00509000
      XTRA0H = XLINT(RRR,HHH,R,IC2D,M)                                  00510000
      XTRA1E = XLINT(RRR,ETAETA,R,IC2D,M)                               00511000
      WRITE(6,9004) XTRA1T,R,XTRA2W,XTRA3W,XTRA0H,XTRA4V,               00512000
     1 XTRATP,XTRAEO,XTRA5P,XTRA6E,XTRA7M,XTRA8D,XTRA9N,XTRA1E          00513000
      IF (KPRINT.EQ.0) GO TO 4026                                       00514000
      XTR11N = XLINT(RRR,CLCLCL,R,IC2D,M)                               00515000
      XTR12N = XLINT(RRR,CDCDCD,R,IC2D,M)                               00516000
      XTR13N = XLINT(RRR,ALDALD,R,IC2D,M)                               00517000
      XTR14N = XLINT(RRR,ELLELL,R,IC2D,M)                               00518000
      XTR15N = XLINT(RRR,FFF,R,IC2D,M)                                  00519000
      XTR16N = XLINT(RRR,BHPBHP,R,IC2D,M)                               00520000
      XTR17N = XLINT(RRR,TPTPTP,R,IC2D,M)                               00521000
      XTR18N = XLINT(RRR,CCPCCP,R,IC2D,M)                               00522000
      XTR19N = XLINT(RRR,CCTCCT,R,IC2D,M)                               00523000
      XTR20N = XLINT(RRR,AJAJAJ,R,IC2D,M)                               00524000
      XTR21N = XLINT(RRR,PPP,R,IC2D,M)                                  00525000
      XTR22N = XLINT(RRR,DEEDEE,R,IC2D,M)                               00526000
      WRITE(6,9005) XTR11N,XTR12N,XTR13N,XTR14N,XTR22N,XTR15N,XTR16N,   00527000
     1 XTR17N,XTR18N,XTR19N,XTR20N,XTR21N                               00528000
 4026 IF (ENGIND-1.0) 2181,2182,2182                                    00529000
 2181 CALL POWAVL(TMAX,EM)                                              00530000
      GO TO 2183                                                        00531000
 2182 CALL THRAVL(TMAX,EM)                                              00532000
 2183 PEHF  =  SHPR/SHPA                                                00533000
      PETF = PEHF                                                       00534000
      EAS=V*SQRT(SIGMA)                                                 00535000
      IF ((DESIND(IDSCNT).EQ.1.).OR.(DESIND(IDSCNT).EQ.2.0)) KOUT = 1   00536000
      IF ((DESIND(IDSCNT).EQ.3.).OR.(DESIND(IDSCNT).EQ.4.0)) KOUT = 2   00537000
      IF((IPRT.EQ.1).AND.((DESIND(IDSCNT).EQ.2.).OR.(DESIND(IDSCNT).EQ. 00538000
     14.0)))  WRITE(6,9000) HMIN(IDSCNT),(OO3(KOUT,I),I=1,3)            00539000
      IF((IPRT.EQ.1).AND.((DESIND(IDSCNT).EQ.1.0).OR.(DESIND(IDSCNT).EQ.00540000
     13.0)))  WRITE(6,8999) HMIN(IDSCNT),RMAX5(IDSCNT),(OO3(KOUT,I),    00541000
     2I=1,3)                                                            00542000
      IF (IPRT.EQ.1) WRITE(6,9001)                                      00543000
      IF (IPRT.EQ.1.AND.KPRINT.EQ.1) WRITE(6,9006)                      00544000
      WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,EAS,EM,EMD,DG,DTF,RS  00545000
      IF (KPRINT.EQ.1) CALL SCRIBE(0,ETAP,YLS2)                         00546000
      GO TO 4027                                                        00547000
  200 IF(ENGIND.NE.0.) GO TO 250                                        00548000
      IF(BHPTHE.GT.BHPIDL) GOTO 210                                     00549000
      IF(LC6.EQ.0)GO TO 215                                             00550000
  205 V2=V2 + 1.                                                        00551000
      LC7=1                                                             00552000
      GO TO 2                                                           00553000
  215 CL=W*COS(GAM1)/(SW*Q)                                             00554000
      CALL DRAG                                                         00555000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00556000
      IF(NEXT.NE.0) RETURN                                              00557000
      RS =101.34*V2*(CD*SW*Q-325.8*ETAT*ETAP5*BHPIDL/V2)/(W*PHI)        00558000
      GAM2=ARSIN(-RS/(101.34*V2))                                       00559000
      IF((ABS(GAM2-GAM1)*RTOD).LE..1) GO TO 216                         00560000
      GAM1=GAM2                                                         00561000
      GO TO 215                                                         00562000
  216 BHP= BHPIDL                                                       00563000
      DGAM2=GAM2 * RTOD                                                 00564000
      DCLCLF= CL/CLALPH * RTOD                                          00565000
      THETAF   =DGAM2 + ALPHL0 -  EYEW + DCLCLF                         00566000
      DTF = THETAF                                                      00567000
      WSHPR=WSHPA                                                       00568000
      GO TO 51                                                          00569000
  210 IF(LC7.EQ.1)GO TO 215                                             00570000
      V2= V2- 10.                                                       00571000
      LC6=1                                                             00572000
      GO TO 2                                                           00573000
  250 IF(TTHETA.GT.TIDLE) GO TO 260                                     00574000
      IF(LC6.NE.0)GO TO 205                                             00575000
  270 CL=W* COS(GAM1)/(SW*Q)                                            00576000
      CALL DRAG                                                         00577000
      CD  =  CD  + DLCDDS(IDSCNT)                                       00578000
      IF(NEXT.NE.0) RETURN                                              00579000
      RS=101.34*V2*(CD*SW*Q-TIDLE)/(W*PHI)                              00580000
      GAM2=ARSIN(-RS/(101.34*V2))                                       00581000
      IF((ABS(GAM2-GAM1)*RTOD).LE..1) GO TO 280                         00582000
      GAM1=GAM2                                                         00583000
      GO TO 270                                                         00584000
  280 T=TIDLE                                                           00585000
      DGAM2= GAM2 * RTOD                                                00586000
      DCLCLF= CL/CLALPH * RTOD                                          00587000
      THETAF   =DGAM2 + ALPHL0 -  EYEW + DCLCLF                         00588000
      DTF = THETAF                                                      00589000
      WSHPR=WSHPA                                                       00590000
      GO TO 151                                                         00591000
  260 IF(LC7.EQ.1)GO TO 270                                             00592000
      V2=V2-10.                                                         00593000
      LC6=1                                                             00594000
      GO TO 2                                                           00595000
 3267 WRITE(6,5224)                                                     00596000
      WRITE(6,10002)                                                    00597000
      WRITE(6,5224)                                                     00598000
10002 FORMAT(9X,79HDESCENT CONDITION IMPOSSIBLE  POWER/THRUST REQUIRED I00599000
     1S MORE THAN THAT AVAILABLE)                                       00600000
      WRITE(6,NDSCNT)                                                   00601000
      NEXT = 1                                                          00602000
      RETURN                                                            00603000
      END                                                               00604000
      SUBROUTINE ENGSZ                                                  00001000
C**** MEMBER NAME = B93TENGZ                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      COMMON/KAYDON/LL1,LL2,BHPRCR,BHPRTO                               00255000
C **  KAYDON IS PASSED TO MAIN FOR XMSN PRINT DATA                      00256000
      EQUIVALENCE (DATA(1),OPTIND)                                      00257000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00258000
C *** ANXMAX PASSED TO WGHTR FOR DRIVE SYSTEM WEIGHT CALCULATION        00259000
C     THIS VALUE IS THE XMSN SIZING RPM CONDITION                       00260000
      C2  = 0.0                                                         00261000
      NOCTSG = CTSGNO + 0.01                                            00262000
      NOMTP  = TPMNO + 0.01                                             00263000
      NOCPP = CPPNO + 0.001                                             00264000
      NOXPJ = XPJNO + 0.01                                              00265000
      PI = 3.1415927                                                    00266000
      HH=HES                                                            00267000
      YALE22=1.                                                         00268000
      INDATM=YALE22                                                     00269000
      CALL ATMOS (HH,YALE22,TINY)                                       00270000
      AN2MAX  =  AN2TO                                                  00271000
      VMN = VRCRC/(101.34 * SA)                                         00272000
C **  VMN = VERTICAL MACH NO. USED TO OBTAIN THRUST REQUIRED/AVAILABLE  00273000
C     FOR T/FAN VERTICAL CLIMB. ADDITIONAL THRUST IS REQUIRED TO CLIMB  00274000
C     AT VRCRC AND MOST FANS CLIMB WITH THEIR INLET IN THE AXIAL FLOW   00275000
C     DIRECTION. THEREFORE, BY SPECIFYING A MACH NO. THE THRAVL AND     00276000
C     THRREQ SUBROUTINES WILL DIVIDE THE HOVER THRUST BY THE LAPSE RATE.00277000
C     FOR ENGINES WITH THEIR INLET PERPENDICULAR TO THE AIR FLOW (SUCH  00278000
C     AS VECTORED THRUST) THERE IS ONLY A SLIGHT INLET EFFICIENCY LOSS  00279000
C     UP TO VRC=1000 FT/MIN AND INLET EFF. VS. VRC WAS NOT ACCOUNTED FOR00280000
      IF(INDLFT.EQ.0) GO TO 27                                          00281000
      DELTAY = DELTA                                                    00282000
      CALL  THRAVL(TMAX,VMN)                                            00283000
C **  VMN ACCOUNTS FOR THE ADDITIONAL THRUST NECESSARY TO CLIMB AT VRCRC00284000
      TLP = SHPA                                                        00285000
      CALL  LIFAVL(TLMAX)                                               00286000
      TLL = FLIF * SHPTO                                                00287000
      HH=HC                                                             00288000
      YALE22=1.                                                         00289000
      INDATM=YALE22                                                     00290000
      CALL ATMOS (HH,YALE22,ATMIY)                                      00291000
      Q   = 1.42636 * RHO * VC**2                                       00292000
      CL  = WG /(SW * Q)                                                00293000
      EM  = VC / SA                                                     00294000
      CALL DRAG                                                         00295000
      IF(NEXT.NE.0) RETURN                                              00296000
      AN2MAX  =  AN2CR                                                  00297000
      IF (POWESI -1.0) 201,202,203                                      00298000
  201 TPS = TMAX                                                        00299000
      GO TO 204                                                         00300000
  202 TPS = TMIL                                                        00301000
      GO TO 204                                                         00302000
  203 TPS = TNRP                                                        00303000
  204 CALL  THRAVL(TPS,EM)                                              00304000
      TLPPR = SHPA                                                      00305000
      TP     = CD * SW * Q / (DELTA * TLPPR)                            00306000
      TL     = ENL/(ENL-ENL0)*(WG*SENE- TP * DELTAY * TLP * ETAP2)      00307000
     1       /(DELTAY * ETAL * TLL)                                     00308000
      TL1    =(WG*SENE-((ENP-ENP0)/ENP)*TP*DELTAY*TLP*ETAP2)            00309000
     1       /(ETAL * DELTAY * TLL)                                     00310000
      SAVE(22) = TL                                                     00311000
      SAVE(21) = TL1                                                    00312000
      IF(TL1.GT.TL) TL=TL1                                              00313000
      SAVE(23) = 100. * DELTAY * TLP                                    00314000
      RETURN                                                            00315000
   27 IF(INDENG.NE.0) GO TO 29                                          00316000
  300 CALL  POWAVL(TMAX,0.0)                                            00317000
      S12  = SHPA                                                       00318000
      BLP  =  SHPA                                                      00319000
      DSHPRC = WG * VRCRC/(33000. * CKRC * BLP * DELTA * STHETA)        00320000
C **  DSHPRC IS DELTA POWER NECESSARY TO CLIMB AT VRCRC FT/MIN;NOTE THAT00321000
C     CKRC IS NORMALLY 2.0 BUT SHOULD BE LOWER FOR HIGH WG/A AND FANS   00322000
      SHPACC=DSHPAC/(BLP*DELTA*STHETA)                                  00323000
      P = A2STR*VT                                                      00324000
      IF (ETAIND.EQ.0.0) GO TO 2001                                     00325000
      BHPP = S12                                                        00326000
      V = 0.0                                                           00327000
      YLS2 = (ENP - ENP0)/ENP                                           00328000
      TPROP = SENE*WG                                                   00329000
      IF (ETAIND.EQ.2.0) GO TO 81                                       00330000
      REALJ = 0.0                                                       00331000
      CCT=TPROP*WGA*PI**3/(0.009507*SIGMA*P**2*WG)                      00332000
      IF(ETAIND.NE.3.0) GO TO 44                                        00333000
      TOAD = TPROP*WGA/(WG*DELTA)                                       00334000
      HPADTH=XLKUP(REALJ,TOAD,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)00335000
      CCP=5634966.0*HPADTH/(P/STHETA)**3                                00336000
      GO TO 45                                                          00337000
  44  TIPP = P/(SA * 1.689)                                             00338000
      ETAP = XLKUP(CTSIG,TIPP,CTOSIG,NOCTSG,TIPM,NOMTP,FMER,10,6,IX,IY) 00339000
C **  CTSIG IS EITHER INPUT OR CALCULATED IN SIZTR, DEPENDING ON PDMIND 00340000
  45  IF(IX.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1003)                       00341000
      IF(IX.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1005)                       00342000
 1003 FORMAT(9X,89HTHIS ERROR IS IN THE  J  PART OF THE PROPELLER POWER 00343000
     1COEFFICIENT TABLE - SUBROUTINE ENGSZ)                             00344000
 1005 FORMAT(9X,*THIS ERROR IS IN THE M PART OF THE FAN COEFFICIENT TABL00345000
     1E  -  SUBROUTINE ENGSZ*)                                          00346000
      IF (IY.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1004)                      00347000
      IF(IY.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1006)                       00348000
 1004 FORMAT(9X,89HTHIS ERROR IS IN THE  CT PART OF THE PROPELLER POWER 00349000
     1COEFFICIENT TABLE - SUBROUTINE ENGSZ)                             00350000
 1006 FORMAT(9X,*THIS ERROR IS IN THE FN PART OF THE FAN COEFFICIENT TAB00351000
     1LE  -  SUBROUTINE ENGSZ*)                                         00352000
      CCP = 0.798*CCT**1.5/ETAP                                         00353000
      BHPP1 = 0.009507*CCP*WG*P**3/                                     00354000
     1 (550.*PI**4*WGA*ETAT*BLP*SHPTO*STHETA**3*YLS2)+(SHPACC+DSHPRC)/  00355000
     2    SHPTO                                                         00356000
      GO TO 30                                                          00357000
 81   ITER = 0                                                          00358000
      ETA = 0.85                                                        00359000
      TPROP1 = TPROP                                                    00360000
      BHPP3 = (ENP/(ENP-ENP0))*SQRT(SENE**3)*WG*SQRT(WGA)/              00361000
     1 (550.0*ETAT*S2RHO*DELTA*STHETA*BLP*SHPTO)+(SHPACC+DSHPRC)/SHPTO  00362000
 82   ITER = ITER + 1                                                   00363000
      BHPP = BHPP3/ETA                                                  00364000
      CALL THRUST(TPROP,YLS2,ETAP)                                      00365000
      IF (ABS(1.0-TPROP/TPROP1).LE.0.005) GO TO 83                      00366000
      ETA = ETAP                                                        00367000
      IF (ITER.GT.25) GO TO 84                                          00368000
      GO TO 82                                                          00369000
 83   BHPP1 = BHPP                                                      00370000
      GO TO 30                                                          00371000
 2001 BHPP1 = (ENP/(ENP-ENP0))*SQRT(SENE**3)*WG*SQRT(WGA)               00372000
     1   /(550. *DELTA*STHETA*ETAT*ETAP2*S2RHO*BLP*SHPTO)               00373000
     2         +(SHPACC + DSHPRC)/SHPTO                                 00374000
      GO TO 30                                                          00375000
   29 CALL  THRAVL(TMAX,VMN)                                            00376000
      TLP  =  SHPA                                                      00377000
      IF (INDENG.EQ.2) GO TO 2002                                       00378000
      TP1   = (ENP/(ENP-ENP0))* SENE * WG /(DELTA*ETAP2*TLP*SHPTO)      00379000
      GO TO 807                                                         00380000
 2002 TP1 = BETA*ENP*SENE**1.5*WG*WGA**0.5/(DELTA*                      00381000
     1      (ENP-ENP0) * 550. * ETAT * ETAP2 * SHPTO * S2RHO * TLP)     00382000
     2      +  BETA * (DSHPAC + DSHPRC)/(SHPTO * DELTA * TLP)           00383000
      GO TO 807                                                         00384000
   30 BHPRTO = BHPP1*DELTA*STHETA*BLP                                   00385000
  807 IF(INDESZ.EQ.1.0.OR.XMSND.EQ.1.0) GO TO 500                       00386000
      GO TO 32                                                          00387000
  500 HH=HC                                                             00388000
      YALE22=1.                                                         00389000
      INDATM = YALE22                                                   00390000
      CALL ATMOS (HH,YALE22,ATMIY)                                      00391000
      Q     = 1.42636 * RHO * VC**2                                     00392000
      CL    = WG /( SW * Q)                                             00393000
      EM    = VC / SA                                                   00394000
      CALL DRAG                                                         00395000
      IF(NEXT.NE.0) RETURN                                              00396000
      AN2MAX  =  AN2CR                                                  00397000
      IF (POWESI -1.0) 211,212,213                                      00398000
  211 TPS = TMAX                                                        00399000
      GO TO 214                                                         00400000
  212 TPS = TMIL                                                        00401000
      GO TO 214                                                         00402000
  213 TPS = TNRP                                                        00403000
  214 IF (INDENG.NE.0) GO TO 33                                         00404000
      CALL  POWAVL(TPS,EM)                                              00405000
      S22  = SHPA                                                       00406000
      BLP  =  SHPA                                                      00407000
      SHPACC=DSHPAC/(BLP*DELTA*STHETA)                                  00408000
      P = A2STR*VT                                                      00409000
      IF (ETAIND.EQ.0.0) GO TO 2003                                     00410000
      TPROP = CD*SW*Q                                                   00411000
      V = VC                                                            00412000
      YLS2 = 1.0                                                        00413000
      BHPP = S22                                                        00414000
      IF (ETAIND.EQ.2.0) GO TO 91                                       00415000
      REALJ = 1.689*PI*V/P                                              00416000
      CCT = TPROP*WGA*PI**3/(0.009507*SIGMA*P*P*WG)                     00417000
      IF(ETAIND.NE.3.0) GO TO 46                                        00418000
      EM=V/SA                                                           00419000
      TOAD=TPROP*WGA/(WG*DELTA)                                         00420000
      HPADTH=XLKUP(EM,TOAD,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)   00421000
      CCP=HPADTH*5634966.0/(P/STHETA)**3                                00422000
      GO TO 47                                                          00423000
  46  CCP=XLKUP(REALJ,CCT,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)    00424000
  47  IF(IX.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1003)                       00425000
      IF(IX.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1005)                       00426000
      IF(IY.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1004)                       00427000
      IF(IY.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1006)                       00428000
      ETAP = REALJ*CCT/CCP                                              00429000
      BHPP2 = 0.009507*CCP*WG*P**3/                                     00430000
     1 (550.*PI**4*WGA*ETAT*SHPA*STHETA**3)+SHPACC                      00431000
      GO TO 2004                                                        00432000
 91   ITER = 0                                                          00433000
      ETA = 0.85                                                        00434000
      TPROP1 = TPROP                                                    00435000
      BHPP3 = CD*SW*Q*VC/(325.6365*ETAT*DELTA*STHETA*BLP)+SHPACC        00436000
 92   ITER = ITER + 1                                                   00437000
      BHPP = BHPP3/ETA                                                  00438000
      ETA1 = ETA                                                        00439000
      TP1 = TPROP                                                       00440000
      CALL THRUST(TPROP,1.0,ETAP)                                       00441000
      ETA2 = ETAP                                                       00442000
      TP2 = TPROP                                                       00443000
      IF (ABS(1.0-TPROP/TPROP1).LE.0.005) GO TO 93                      00444000
      ETA = ETAP                                                        00445000
      IF (ITER.GT.1) ETA = ETA2 + (TPROP1 - TP2)*(ETA2 - ETA1)/(TP2-TP1)00446000
      IF (ITER.GT.25) GO TO 84                                          00447000
      GO TO 92                                                          00448000
 93   BHPP2 = BHPP                                                      00449000
      GO TO 2004                                                        00450000
 2003 ETAP4 = XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                           00451000
      IF (M.NE.0) WRITE(6,1001)                                         00452000
 1001 FORMAT(22X,34HTHIS ERROR IS IN THE ETAP4-M TABLE)                 00453000
      BHPP2 = CD*SW*Q*VC/(325.8*ETAT*ETAP4*DELTA*STHETA                 00454000
     1       * BLP )+SHPACC                                             00455000
 2004 BHPP = BHPP1                                                      00456000
      C1  = 0.0                                                         00457000
      BHPRCR = BHPP2*DELTA*STHETA*BLP                                   00458000
      IF (BHPP2.LT.BHPP1) GO TO 60                                      00459000
      BHPP = BHPP2                                                      00460000
      C1  = 1.0                                                         00461000
      GO TO 60                                                          00462000
   33 CALL  THRAVL(TPS,EM)                                              00463000
      TLP  = SHPA                                                       00464000
      TP2    = CD * SW * Q /(DELTA * TLP)                               00465000
      TP   = TP1                                                        00466000
      IF(TP2.GT.TP1) TP= TP2                                            00467000
      IF(TP.EQ.TP1)GO TO 1313                                           00468000
      IF(INDENG.EQ.2) WRITE (6,750)                                     00469000
      TPXMSN = TP                                                       00470000
      LL1 = 0.0                                                         00471000
      RETURN                                                            00472000
 1313 IF(INDENG.EQ.2.AND.XMSND.EQ.1.0) WRITE (6,650)                    00473000
      IF (INDENG.EQ.1) GO TO 1315                                       00474000
      TPXMSN = TP1*XMSMRT                                               00475000
      LL1 = 1.0                                                         00476000
      ANXMAX = AN2TO                                                    00477000
      RETURN                                                            00478000
 1315 TPXMSN=TP                                                         00479000
      LL1 = 0.0                                                         00480000
      RETURN                                                            00481000
   32 IF (INDENG.EQ.0) GO TO 58                                         00482000
      IF (INDENG.EQ.1) GO TO 1314                                       00483000
      IF (XMSND.EQ.1.0) WRITE (6,650)                                   00484000
      TP=TP1                                                            00485000
      TPXMSN=TP1*XMSMRT                                                 00486000
      LL1 = 1.0                                                         00487000
      ANXMAX = AN2TO                                                    00488000
      RETURN                                                            00489000
 1314 TP=TP1                                                            00490000
      TPXMSN=TP                                                         00491000
      LL1 = 0.0                                                         00492000
      RETURN                                                            00493000
  650 FORMAT(22X,   *+++ERROR+++ TORQUE LIMIT OPTION USED NOT *,        00494000
     1*APPLICABLE TO CONVERTIBLE ENGINES.*/22X,*PROGRAM APPLIED XMSN *, 00495000
     2*LIMIT AS SPECIFIED FRACTION OF INSTALLED TAKEOFF POWER.*)        00496000
  750 FORMAT(22X,   *+++WARNING+++ CONVERTIBLE ENGINE SIZED FOR *,      00497000
     1*CRUISE. XMSN TORQUE LIMIT OPTION INPUT IGNORED.*)                00498000
      RETURN                                                            00499000
   58 BHPP = BHPP1                                                      00500000
      C1  = 0.0                                                         00501000
   60 IF (IRN.EQ.1) GO TO 600                                           00502000
  625 IF(XMSND.EQ.1.0)GO TO 700                                         00503000
      BHPXMS=BHPP*XMSMRT                                                00504000
      ANXMAX = AN2TO                                                    00505000
      IF(BHPP.EQ.BHPP2) ANXMAX = AN2CR                                  00506000
      LL1 = 1.0                                                         00507000
      RETURN                                                            00508000
  700 BHPXMS=BHPRTO*XMSMRT                                              00509000
      ANXMAX = AN2TO                                                    00510000
      LL1 = 1.0                                                         00511000
      IF(BHPRCR/AN2CR.LE.BHPRTO/AN2TO) RETURN                           00512000
      BHPXMS = BHPRCR*XMSMRT                                            00513000
      ANXMAX = AN2CR                                                    00514000
      LL2 = 2.0                                                         00515000
      RETURN                                                            00516000
  600 DEBAR = XI4 * ((BHPP/ENP)**.5)                                    00517000
      IF (C1.EQ.0.0) GO TO 70                                           00518000
      IF (POWESI -1.0) 61,62,63                                         00519000
   61 TPS = TMAX                                                        00520000
      GO TO 64                                                          00521000
   62 TPS = TMIL                                                        00522000
      GO TO 64                                                          00523000
   63 TPS = TNRP                                                        00524000
   64 CALL  POWAVL(TPS,EM)                                              00525000
      AAW6 = S22 / SHPA                                                 00526000
      CALL ATMOS(HES,YALE22,TINY)                                       00527000
      GO TO 75                                                          00528000
   70 HH  = HES                                                         00529000
      YALE22 = 1.0                                                      00530000
      CALL  ATMOS (HH,YALE22,TINY)                                      00531000
      AN2MAX  =  AN2CR                                                  00532000
      CALL  POWAVL(TMAX,0.0)                                            00533000
      AAW6 = S12 / SHPA                                                 00534000
   75 IF ((ABS(1.0-AAW6)).LE.0.01) GO TO 625                            00535000
      AN2MAX  =  AN2TO                                                  00536000
      C2 = C2 +1.0                                                      00537000
      IF (C2.LT.25.)  GO TO 300                                         00538000
 1010 FORMAT(22X,91HERROR , THE NUMBER OF ITERATIONS IN THE ENGINE SIZIN00539000
     1G ROUTINE EXCEEDED 25 ,CASE  TERMINATED)                          00540000
 84   WRITE(6,1010)                                                     00541000
      NEXT = 1                                                          00542000
      RETURN                                                            00543000
      END                                                               00544000
      SUBROUTINE  ENG1(TEA,AM)                                          00001000
C**** MEMBER NAME = B93TENG1                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC 2201 TO LOC 2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      FAPN = 1.0                                                        00257000
      KPN = 10                                                          00258000
      KPR = 10                                                          00259000
      IF (IN2.NE.2) GO TO 10                                            00260000
      A2STR = AN2MAX * A2MAX                                            00261000
      A2REF = XLKUP(AM,TEA,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00262000
 1001 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE N SUB 2 POWER TA00263000
     1BLE)                                                              00264000
 1002 FORMAT(9X,56HTHIS ERROR IS IN THE  T  PART OF THE N SUB2 POWER  TA00265000
     1BLE)                                                              00266000
      IF (IX.NE.0)  WRITE(6,1001)                                       00267000
      IF (IY.NE.0) WRITE(6,1002)                                        00268000
      A2OPT = A2STR /(A2REF * STHETA)                                   00269000
      FAPN = A2OPT *(2.0 - A2OPT)                                       00270000
      IF (FAPN.LT.0.0)  FAPN = 0.0                                      00271000
      DO 8  I=1,KPN                                                     00272000
      IF (PN2(I).NE.0.0)  GO TO 9                                       00273000
    8 CONTINUE                                                          00274000
      GO TO 10                                                          00275000
    9 FAPN = PARA(A2OPT,A2NO,PN2,KPN,IX)                                00276000
 1007 FORMAT(9X,46HTHIS ERROR IS IN THE N SUB 2 CORRECTION FACTOR)      00277000
      IF (IX.NE.0) WRITE(6,1007)                                        00278000
   10 FAPR = 1.0                                                        00279000
      IF (IRN.EQ.0) GO TO 20                                            00280000
      RRR3 =6346.8*DEBAR *((1.0+0.2*(AM**2))**1.74)*SIGMA /(THETA**0.26)00281000
      A1REF = XLKUP(AM,TEA,AM1,NM1,TN1,NT1,AONE,6,8,IX,IY)              00282000
 1003 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE N SUB 2 POWER TA00283000
     1BLE)                                                              00284000
 1004 FORMAT(9X,56HTHIS ERROR IS IN THE  T  PART OF THE N SUB 2 POWER TA00285000
     1BLE)                                                              00286000
      IF (IX.NE.0) WRITE(6,1003)                                        00287000
      IF (IY.NE.0) WRITE(6,1004)                                        00288000
      RNE1 = RRR3  * A1REF                                              00289000
      FAPR = PARA(RNE1,PRN,RNE,KPR,IX)                                  00290000
 1008 FORMAT(9X,42HTHIS ERROR IS IN THE REYNOLDS NUMBER TABLE)          00291000
      IF (IX.NE.0) WRITE(6,1008)                                        00292000
   20 SHPA = XLKUP(AM,TEA,AMSHP,NMS,TSHP,NTS,SHPAV,6,8,IX,IY)           00293000
 1005 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE REFERED POWER TA00294000
     1BLE)                                                              00295000
 1006 FORMAT(9X,56HTHIS ERROR IS IN THE  T  PART OF THE REFERED POWER TA00296000
     1BLE)                                                              00297000
      IF (IX.NE.0) WRITE(6,1005)                                        00298000
      IF (IY.NE.0) WRITE(6,1006)                                        00299000
      SHPA  = SHPA * FAPN * FAPR                                        00300000
      RETURN                                                            00301000
      END                                                               00302000
      SUBROUTINE LIFAVL(TLPS)                                           00001000
C**** MEMBER NAME = B93TLAVL                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC 2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  ,  LOC 2351 TO 2428  +  SPACE(22)             00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      NLIM = 0                                                          00257000
      NTF  = 8                                                          00258000
      NWF  = 8                                                          00259000
      N1F  = 8                                                          00260000
      N2F  = 8                                                          00261000
      TEA  =  TLPS/THETA                                                00262000
      IF (LWD)  4,4,2                                                   00263000
    2 FWREF =  PARA(TLMAX,TFW,FWDOT,NWF,IX)                             00264000
 1001 FORMAT(9X48HTHIS ERROR IS IN THE LIFT ENGINE FUEL FLOW TABLE)     00265000
      IF (IX.NE.0) WRITE(6,1001)                                        00266000
      FWSHP = WLMAX * FWREF /(DELTA *STHETA)                            00267000
      FWTEM = PARA(TEA,TFW,FWDOT,NWF,IX)                                00268000
      IF (IX.NE.0) WRITE(6,1001)                                        00269000
      IF (FWSHP.GE.FWTEM)  GO TO 4                                      00270000
      TEWD  = PARA(FWSHP,FWDOT,TFW,NWF,IX)                              00271000
      IF (IX.NE.0) WRITE(6,1001)                                        00272000
      IF (TEA -TEWD) 4,4,3                                              00273000
    3 TEA = TEWD                                                        00274000
      NLIM = 1                                                          00275000
    4 IF (LN1) 7,7,5                                                    00276000
    5 A1REF = A1LMAX / STHETA                                           00277000
      A1TEM = PARA(TEA,TF1,FONE,N1F,IX)                                 00278000
      IF (IX.NE.0) WRITE(6,1002)                                        00279000
      IF (A1REF.GE.A1TEM)  GO TO 7                                      00280000
      TEN1 = PARA(A1REF,FONE,TF1,N1F,IX)                                00281000
 1002 FORMAT(9X,47HTHIS ERROR IS IN THE LIFT ENGINE  N SUB 1 TABLE)     00282000
      IF (IX.NE.0) WRITE(6,1002)                                        00283000
      IF (TEA -TEN1) 7,7,6                                              00284000
    6 TEA = TEN1                                                        00285000
      NLIM = 2                                                          00286000
    7 IF (LN2) 10,10,8                                                  00287000
    8 A2REF = AL2MAX / STHETA                                           00288000
      A2TEM = PARA(TEA,TF2,FTWO,N2F,IX)                                 00289000
      IF (IX.NE.0) WRITE(6,1003)                                        00290000
      IF (A2REF.GE.A2TEM)  GO TO 10                                     00291000
      TEN2  = PARA(A2REF,FTWO,TF2,N2F,IX)                               00292000
 1003 FORMAT(9X,47HTHIS ERROR IS IN THE LIFT ENGINE  N SUB 2 TABLE)     00293000
      IF (IX.NE.0) WRITE(6,1003)                                        00294000
      IF (TEA -TEN2) 10,10,9                                            00295000
    9 TEA = TEN2                                                        00296000
      NLIM = 3                                                          00297000
   10 FLIF = PARA(TEA,TF,FAVL,NTF,IX)                                   00298000
 1004 FORMAT(9X,46HTHIS ERROR IS IN THE LIFT ENGINE  POWER  TABLE)      00299000
      IF (IX.NE.0) WRITE(6,1004)                                        00300000
      FWA  = PARA(TEA,TFW,FWDOT,NWF,IX)                                 00301000
      IF (IX.NE.0) WRITE(6,1001)                                        00302000
      FWA = FWA * CKFF                                                  00303000
      NLLIM =  NLIM                                                     00304000
      TLEA  =  TEA * THETA                                              00305000
      RETURN                                                            00306000
      END                                                               00307000
      FUNCTION XIBIV(XA,ZA,XTAB,NX,YTAB,NY,ZTAB,NXI,NYJ,IX,IZ)          00001000
C**** MEMBER NAME = B93TLIBV                                            00002000
      DIMENSION  XTAB(1),YTAB(1)                                        00003000
      DIMENSION ZTAB(NXI,NYJ),ZJ(20)                                    00004000
C     INVERSE DOUBLE TABLE PARABOLIC LOOK-UP      Y = FUNC( X,Z )       00005000
C         XA = FIRST INDEPENDENT VARIABLE, ONE DIMENSIONAL              00006000
C  ***    ZA = SECOND INDEPENDENT VARIABLE, TWO DIMENSIONAL            *00007000
C         XTAB = TABLE OF FIRST INDEPENDENT VARIABLE                    00008000
C         NX   = NO. OF ENTRIES IN XTAB                                 00009000
C         YTAB = TABLE OF DEPENDENT VARIABLE                            00010000
C         NY   = NO. OF ENTRIES IN YTAB                                 00011000
C         ZTAB = TABLE OF SECOND INDEPENDENT VARIABLE                   00012000
C         NXI  = X DIMENSION OF ZTAB                                    00013000
C         NYJ  = Y DIMENSION OF ZTAB                                    00014000
C         IX   = X ARGUMENT ERROR RETURN                                00015000
C         IZ   = Z ARGUMENT ERROR RETURN                                00016000
C  ***    NANS = NO. OF ANSWERS FOUND. ONLY THE FIRST Y VALUE FOUND    *00017000
C              IS RETURNED.                                             00018000
C  ***    ZJ(30) IS A DUMMY ARRAY.DIMENSION 30 IS CRITICAL, IT MUST    *00019000
C  ***         BE GREATER THAN OR EQUAL TO NY                          *00020000
      PART(XXX,X111,X222,X333,Y111) = (((XXX-X111) * (XXX-X222)) /      00021000
     1    ((X333-X111) * (X333-X222))) * Y111                           00022000
      BO2A(V11,V22,V33,U1,U2,U3) = (V11**2*(U2-U3)-V22**2*(U1-U3)+V33**200023000
     1*(U1-U2))/(2.*(-V11*(U2-U3)+V22*(U1-U3)-V33*(U1-U2)))             00024000
      COA(V11,V22,V33,U1,U2,U3,U)= (V11**2*(U2*V33-U3*V22)-V22**2*(U1*V300025000
     13-U3*V11)+V33**2*(U1*V22-U2 *V11)-U*(-V11**2*(V22-V33)+V22**2*    00026000
     2 (V11-V33)-V33**2*(V11-V22)))        /(V11*(U2-U3)-V22*(U1-U3)    00027000
     3 +V33*(U1-U2))                                                    00028000
      DENOM(V11,V22,V33,U1,U2,U3) = V11*(U2-U3)-V22*(U1-U3)+V33*(U1-U2) 00029000
      IX   = 0                                                          00030000
      IZ   = 0                                                          00031000
C     SEARCH XTAB FOR THE X ARGUMENT    (NO EXTRAPOLATION)              00032000
      IF (XA - XTAB(1)) 2,3,10                                          00033000
    2 IX = -1                                                           00034000
    3 M  = 1                                                            00035000
      GO TO 4                                                           00036000
   10 IF (XA - XTAB(NX)) 15,12,11                                       00037000
   11 IX = 1                                                            00038000
   12 M  = NX                                                           00039000
      GO TO 4                                                           00040000
   15 DO 16 I=2,NX                                                      00041000
      II = I                                                            00042000
      IF (XA - XTAB(I)) 18,17,16                                        00043000
   16 CONTINUE                                                          00044000
   17 M = II                                                            00045000
    4 DO 5 J=1,NY                                                       00046000
    5 ZJ(J) = ZTAB(M,J)                                                 00047000
      GO TO 32                                                          00048000
   18 CONTINUE                                                          00049000
   20 IF (II-NX) 26,25,25                                               00050000
C  22 DX1 = XA - XTAB(II-1)                                             00051000
C     DX2 = XTAB(II) - XA                                               00052000
C     IF (DX2 - DX1)  26,26,25                                          00053000
   25 II = II-1                                                         00054000
   26 X1 = XTAB(II-1)                                                   00055000
      X2 = XTAB(II)                                                     00056000
      X3 = XTAB(II+1)                                                   00057000
      DO 30 J=1,NY                                                      00058000
      Z1 = ZTAB(II-1,J)                                                 00059000
      Z2 = ZTAB(II,J)                                                   00060000
      Z3 = ZTAB(II+1,J)                                                 00061000
   30 ZJ(J) = PART(XA,X2,X3,X1,Z1) + PART(XA,X1,X3,X2,Z2) +             00062000
     1    PART(XA,X1,X2,X3,Z3)                                          00063000
   32 NANS = 0                                                          00064000
C     NOW WE HAVE  Y =FUNC(Z),BUT Y MAY BE MULTIVALUED                  00065000
      NNN=NY-1                                                          00066000
      DO 200 J=1,NNN                                                    00067000
      IF(ZJ(J).LT.ZA.AND.ZA.LT.ZJ(J+1).OR.ZJ(J).GT.ZA.AND.ZA.GT.ZJ(J+1))00068000
     1GO TO 210                                                         00069000
      IF(ZJ(J).EQ.ZA) GO TO 211                                         00070000
      IF(ZJ(J+1).EQ.ZA) GO TO 212                                       00071000
  200 CONTINUE                                                          00072000
      IF(ZA.GT.ZJ(NY).AND.ZJ(NY).GT.ZJ(1)) GO TO 201                    00073000
      IF(ZA.LT.ZJ(NY).AND.ZJ(NY).LT.ZJ(1)) GO TO 201                    00074000
      ANS=YTAB(1)                                                       00075000
      IZ=-1                                                             00076000
      GO TO 222                                                         00077000
  201 ANS=YTAB(NY)                                                      00078000
      IZ=1                                                              00079000
      GO TO 222                                                         00080000
  211 ANS=YTAB(J)                                                       00081000
      GO TO 222                                                         00082000
  212 ANS=YTAB(J+1)                                                     00083000
      GO TO 222                                                         00084000
  210 IF(ABS(ZA-ZJ(J)).LT.ABS(ZA-ZJ(J+1))) GO TO 213                    00085000
      IF(J-NNN) 214,216,216                                             00086000
  214 JJ=J+1                                                            00087000
      GO TO 215                                                         00088000
  213 IF(J-1) 214,214,216                                               00089000
  216 JJ=J                                                              00090000
  215 Z1=ZJ(JJ-1)                                                       00091000
      Z2=ZJ(JJ)                                                         00092000
      Z3=ZJ(JJ+1)                                                       00093000
      Y1=YTAB(JJ-1)                                                     00094000
      Y2=YTAB(JJ)                                                       00095000
      Y3=YTAB(JJ+1)                                                     00096000
      DNOM = DENOM(Y1,Y2,Y3,Z1,Z2,Z3)                                   00097000
      IF (ABS(DNOM).LE.1.0E-10) GO TO 84                                00098000
      A=BO2A(Y1,Y2,Y3,Z1,Z2,Z3)                                         00099000
      B=COA(Y1,Y2,Y3,Z1,Z2,Z3,ZA)                                       00100000
      AN1 = -A-SQRT(A**2-B)                                             00101000
      AN2 = -A+SQRT(A**2-B)                                             00102000
      IF(YTAB(JJ-1).LT.AN1.AND.AN1.LT.YTAB(JJ+1)) NANS=NANS+1           00103000
      IF(YTAB(JJ-1).LT.AN2.AND.AN2.LT.YTAB(JJ+1)) NANS=NANS+1           00104000
      IF(NANS-1) 217,218,219                                            00105000
  217 WRITE(6,1009)                                                     00106000
      IF(J-JJ) 230,231,231                                              00107000
  230 IF(AN1-YTAB(JJ-1)) 240,251,241                                    00108000
  240 IF(AN2-YTAB(JJ-1)) 250,241,251                                    00109000
  250 IF(AN1-AN2)241,241,251                                            00110000
  241 ANS=AN2                                                           00111000
      GO TO 222                                                         00112000
  251 ANS=AN1                                                           00113000
      GO TO 222                                                         00114000
  231 IF(AN1-YTAB(JJ+1)) 241,251,260                                    00115000
  260 IF(AN2-YTAB(JJ+1)) 251,241,270                                    00116000
  270 IF(AN1-AN2) 251,251,241                                           00117000
  218 ANS=AN1                                                           00118000
      IF(YTAB(JJ-1).LT.AN2.AND.AN2.LT.YTAB(JJ+1)) ANS=AN2               00119000
      GO TO 222                                                         00120000
  219 IF(J-JJ)220,221,221                                               00121000
  220 ANS=AN1                                                           00122000
      IF(AN1.GT.YTAB(JJ)) ANS=AN2                                       00123000
      GO TO 222                                                         00124000
  221 ANS=AN1                                                           00125000
      IF(AN1.LT.YTAB(JJ)) ANS=AN2                                       00126000
      GO TO 222                                                         00127000
 84   ANS = Y1 + (ZA - Z1)*(Y3 - Y1)/(Z3 - Z1)                          00128000
 1001 FORMAT(9X,117H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. B00129000
     1OTH INDEPENDENT VARIABLES (X AND Z) ARE OUT OF RANGE OF THE TABLE)00130000
 1002 FORMAT(9X,114H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00131000
     1HE FIRST INDEPENDENT VARIABLE (X) IS OUT OF RANGE OF THE TABLE)   00132000
 1003 FORMAT(9X,115H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00133000
     1HE SECOND INDEPENDENT VARIABLE (Z) IS OUT OF RANGE OF THE TABLE)  00134000
 1004 FORMAT(9X,56HTHE PROGRAM PICKED UP THE FIRST VALUE, Z(1) IN THE TA00135000
     1BLE)                                                              00136000
 1005 FORMAT(9X,55HTHE PROGRAM PICKED UP THE LAST VALUE, Z(N) IN THE TAB00137000
     1LE)                                                               00138000
 1006 FORMAT(9X,57HTHE PROGRAM PICKED UP THE FIRST VALUE, X(1), IN THE T00139000
     1ABLE)                                                             00140000
 1007 FORMAT(9X,56HTHE PROGRAM PICKED UP THE LAST VALUE, X(N), IN THE TA00141000
     1BLE)                                                              00142000
 1009 FORMAT(9X,105H****CAUTION***** THE PROGRAM HAD DIFFICULTY CONVERGI00143000
     1NG DURING REVERSE TABLE LOOKUP. CHECK THE TABLE RANGE)            00144000
  222 IF(IX.NE.0.AND.IZ.NE.0) GO TO 102                                 00145000
      IF(IX) 103,104,105                                                00146000
  103 WRITE(6,1002)                                                     00147000
      WRITE(6,1006)                                                     00148000
      GO TO 120                                                         00149000
  105 WRITE(6,1002)                                                     00150000
      WRITE(6,1007)                                                     00151000
      GO TO 120                                                         00152000
  104 IF(IZ) 106,120,108                                                00153000
  106 WRITE(6,1003)                                                     00154000
      WRITE(6,1004)                                                     00155000
      GO TO 120                                                         00156000
  108 WRITE(6,1003)                                                     00157000
      WRITE(6,1005)                                                     00158000
      GO TO 120                                                         00159000
  102 WRITE(6,1001)                                                     00160000
  120 XIBIV = ANS                                                       00161000
      RETURN                                                            00162000
      END                                                               00163000
      FUNCTION XLINT(XT,YT,X,NTAB,M)                                    00001000
C**** MEMBER NAME = B93TLINT                                            00002000
      DIMENSION XT( 1), YT( 1)                                          00003000
      XSAV=XT(1)                                                        00004000
      N=1                                                               00005000
      M=0                                                               00006000
      IF(X-XT(1)) 1,2,3                                                 00007000
    1 M=-1                                                              00008000
    2 XLINT= YT(1)                                                      00009000
      GO TO 25                                                          00010000
    3 IF(X-XT(NTAB)) 4,5,6                                              00011000
    6 M=1                                                               00012000
    5 N=NTAB                                                            00013000
      XSAV= XT(NTAB)                                                    00014000
      XLINT= YT(NTAB)                                                   00015000
      GO TO 25                                                          00016000
    4 IF(X-XSAV) 7,8,9                                                  00017000
    8 XLINT= YT(N)                                                      00018000
      GO TO 25                                                          00019000
    7 I= N-1                                                            00020000
   13 IF(X-XT(I)) 10,11,12                                              00021000
   11 N= I                                                              00022000
      XSAV= XT(I)                                                       00023000
      XLINT= YT(I)                                                      00024000
      GO TO 25                                                          00025000
   10 I = I-1                                                           00026000
      GO TO 13                                                          00027000
    9 I = N+1                                                           00028000
   14 IF(X-XT(I)) 15,11,16                                              00029000
   16 I= I+1                                                            00030000
      GO TO 14                                                          00031000
   15 I=I-1                                                             00032000
   12 N=I                                                               00033000
      XSAV=XT(I)                                                        00034000
      XLINT= YT(I)+(X-XT(I))*(YT(I+1)-YT(I))/(XT(I+1)-XT(I))            00035000
   25 IF(M) 30,31,32                                                    00036000
   30 WRITE (6,300)                                                     00037000
  300 FORMAT(/9X,97H***ERROR*** THE FOLLOWING VALUES MAY NOT BE ACCURATE00038000
     1 THE INDEPENDENT VARIABLE WAS OUT OF RANGE OF/9X,81HTHE TABLE.  TH00039000
     2ESE VALUES WERE CALCULATED USING THE FIRST VALUE GIVEN IN THE TABL00040000
     3E)                                                                00041000
   31 RETURN                                                            00042000
   32 WRITE (6,301)                                                     00043000
  301 FORMAT(/9X,97H***ERROR*** THE FOLLOWING VALUES MAY NOT BE ACCURATE00044000
     1 THE INDEPENDENT VARIABLE WAS OUT OF RANGE OF/9X,81HTHE TABLE.  TH00045000
     2ESE VALUES WERE CALCULATED USING THE LAST  VALUE GIVEN IN THE TABL00046000
     3E)                                                                00047000
      GO TO 31                                                          00048000
      END                                                               00049000
      SUBROUTINE LOADET (X,I)                                           00001000
C**** MEMBER NAME = B93TLOAD                                            00002000
      DIMENSION T(5), IDENT(20), X(1)                                   00003000
  917 FORMAT(/47X,17HV A S C O M P  II/18X,65HV/STOL AIRCRAFT SIZING & P00004000
     1ERFORMANCE COMPUTER PROGRAM    B-93    ,                          00005000
     2                         //15X76HTHE FOLLOWING IS A CARD BY CARD R00006000
     3EPRODUCTION OF THE INPUT DECK FOR THIS CASE//9X,58HLOC.  CORRESPON00007000
     4DS TO LOCATION NUMBER GIVEN ON INPUT SHEET / 9X,83HNUM   STANDS FO00008000
     5R THE NUMBER OF SEQUENTIAL INPUT VALUES STARTING WITH LOC. (MAX. =00009000
     65)/ 9X,53HVAL   EQUALS VALUE FOR VARIABLE CORRESPONDING TO LOC./9X00010000
     7,4HVAL1,9X,5HVALUE,14X,26HCORRESPONDING TO LOC.+0001/9X,4HVAL2,9X,00011000
     85HVALUE,14X,26HCORRESPONDING TO LOC.+0002/15X,4HETC.//11X,4HLOC.,700012000
     9X,3HNUM,9X,3HVAL,15X,4HVAL1,14X,4HVAL2,14X,4HVAL3,14X,4HVAL4/)    00013000
  918 FORMAT(11X,I4,8X,I1,5X,5(G14.5,4X))                               00014000
  999 FORMAT(/47X,17HV A S C O M P  II/18X,65HV/STOL AIRCRAFT SIZING & P00015000
     1ERFORMANCE COMPUTER PROGRAM    B-93    )                          00016000
      DATA KLANK /4H    /                                               00017000
      IPRTIT = 0                                                        00018000
C     IDTST(ON 360)= 1077952576         IDTST(ON 94)=-17997958192       00019000
      IDTST = KLANK                                                     00020000
      GO TO (1,11),I                                                    00021000
    1 READ(5,2)K,J,(T(L),L=1,5)                                         00022000
    2 FORMAT(I4,I1,5E14.7)                                              00023000
      GO TO (4,4,4,4,4,8,6,13,14),J                                     00024000
    4 CONTINUE                                                          00025000
      IF(IPRTIT.NE.0)  GO TO 99                                         00026000
      WRITE(6,11111)                                                    00027000
11111 FORMAT(1H1)                                                       00028000
      WRITE(6,917)                                                      00029000
      IPRTIT= 1                                                         00030000
   99 DO 5  L=1,J                                                       00031000
      N=K+L-1                                                           00032000
    5 X(N)= T(L)                                                        00033000
      WRITE (6,918) K,J,(X(IVY),IVY=K,N)                                00034000
      GO TO 1                                                           00035000
    6 READ(5,7)(IDENT(M),M=1,19)                                        00036000
    7 FORMAT(A4,2X,18A4)                                                00037000
      IF(IDENT(1)-IDTST) 8,10,8                                         00038000
    8 WRITE(6,9)                                                        00039000
    9 FORMAT(5X,43H*** ERROR - NO TITLE CARD AFTER SEVEN CARD,/         00040000
     1       5X,44HCOLUMNS 1 THRU 6 ON TITLE CARD MUST BE BLANK/        00041000
     2        5X,45HOR THERE WAS A 6 IN COLUMN 5 OF AN INPUT CARD)      00042000
      GO TO 14                                                          00043000
   10 IPAGE=0                                                           00044000
   11 IPAGE=IPAGE+1                                                     00045000
      WRITE(6,12) (IDENT(M),M=2,19),IPAGE                               00046000
      IF(I.EQ.1) WRITE(6,917)                                           00047000
   12 FORMAT(1H11X18A4,6H PAGE I3//)                                    00048000
      IF(I.NE.1) GO TO113                                               00049000
      IPRTIT=1                                                          00050000
      GO TO 1                                                           00051000
  113 WRITE(6,999)                                                      00052000
   13 RETURN                                                            00053000
   14 CALL EXIT                                                         00054000
      RETURN                                                            00055000
      END                                                               00056000
      FUNCTION XDLKP(XARG,YARG,XTAB,YTAB,ZTAB,NXARG,NYARG,M,IERRX,IERRY)00001000
C**** MEMBER NAME = B93TLODK                                            00002000
      DIMENSION ZTAB(1),XTAB(1),YTAB(1)                                 00003000
      DIV(A,B,C) = (A-B)/(C-B)                                          00004000
      IERRX=0                                                           00005000
      IERRY=0                                                           00006000
      IF(XARG-XTAB(1))2,3,3                                             00007000
    2 IERRX=-1                                                          00008000
      J=1                                                               00009000
      GOTO9                                                             00010000
    3 DO5I=2,NXARG                                                      00011000
      K=I                                                               00012000
    4 IF(XARG-XTAB(I))6,6,5                                             00013000
    5 CONTINUE                                                          00014000
      IERRX = 1                                                         00015000
    6 I=K                                                               00016000
      IF(I-NXARG)8,7,8                                                  00017000
    7 J=NXARG-1                                                         00018000
      GOTO9                                                             00019000
    8 J=I-1                                                             00020000
    9 IF(YARG-YTAB(1))10,11,11                                          00021000
   10 IERRY=-1                                                          00022000
      L=1                                                               00023000
      GOTO17                                                            00024000
   11 DO13I=2,NYARG                                                     00025000
      K=I                                                               00026000
   12 IF(YARG-YTAB(I))14,14,13                                          00027000
   13 CONTINUE                                                          00028000
      IERRY = 1                                                         00029000
   14 I=K                                                               00030000
      IF(I-NYARG)16,15,16                                               00031000
   15 L=NYARG-1                                                         00032000
      GOTO17                                                            00033000
   16 L=I-1                                                             00034000
   17 JJ=J+1                                                            00035000
      LL=L+1                                                            00036000
      M1=M*(L-1)+J                                                      00037000
      M2=M*(LL-1)+J                                                     00038000
   18 FY11=DIV(XARG,XTAB(JJ),XTAB(J))                                   00039000
      FY12=DIV(XARG,XTAB(J),XTAB(JJ))                                   00040000
      FY1=FY11*ZTAB(M1)+FY12*ZTAB(M1+1)                                 00041000
   19 FY2=FY11*ZTAB(M2)+FY12*ZTAB(M2+1)                                 00042000
      XDLKP=(DIV(YARG,YTAB(LL),YTAB(L))*FY1)+(DIV(YARG,YTAB(L),YTAB(LL))00043000
     1*FY2)                                                             00044000
      IF(IERRX)21,22,23                                                 00045000
   21 WRITE(6,20000)                                                    00046000
      WRITE(6,21000)                                                    00047000
   22 IF(IERRY)31,32,33                                                 00048000
   23 WRITE(6,20000)                                                    00049000
      WRITE(6,23000)                                                    00050000
      GOTO22                                                            00051000
   31 WRITE(6,30000)                                                    00052000
      WRITE(6,21000)                                                    00053000
   32 RETURN                                                            00054000
   33 WRITE(6,30000)                                                    00055000
      WRITE(6,23000)                                                    00056000
      GOTO32                                                            00057000
20000 FORMAT(/9X111H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00058000
     1HE FIRST  INDEPENDENT VARIABLE IS OUT OF RANGE OF THE TABLE)      00059000
21000 FORMAT(19X52HTHE PROGRAM PICKED UP THE  FIRST  VALUE IN THE TABLE)00060000
23000 FORMAT(19X52HTHE PROGRAM PICKED UP THE  LAST   VALUE IN THE TABLE)00061000
30000 FORMAT(/9X111H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00062000
     1HE SECOND INDEPENDENT VARIABLE IS OUT OF RANGE OF THE TABLE)      00063000
      END                                                               00064000
      SUBROUTINE LOITR(ILOITR)                                          00001000
C**** MEMBER NAME = B93TLOIT                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      COMMON/HAL/INDSGT,KE                                              00254000
C **  HAL IS PASSED AMOUNG CRUS1,3, PRFRM, PRFRP, LOITR                 00255000
      DIMENSION DATA(1)                                                 00256000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00257000
      DIMENSION  OO3(2,4),EO(7)                                               00
      DATA  OO3(1,1)/4H    /,OO3(1,2)/4H    /, OO3(1,3)/4H    /         00259000
      DATA  OO3(1,4)/4H    /,OO3(2,1)/4HFOR /, OO3(2,2)/4HRESE/         00260000
      DATA  OO3(2,3)/4HRVE /,OO3(2,4)/4HFUEL/                           00261000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00263000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00264000
      NAMELIST/NLOITR/H,INDATM,W0,ST0,STMAX,CLL,VL,LC1,LC2,LC3,LC4,LC5,V00265000
     1MAX,V,Q,EM,CL,ENGIND,BHPR,YALE22,SFC,F2,F1,PEHF,PETF,EAS,DELTAT,WF00266000
     2,W,ST,DELWFL,WFL,DELV,TR,TSFC,BLP,BHPA,DELP1,VMIN,TLP,TA,IFUDGE   00267000
 9000 FORMAT(/7X12HLOITER  FOR ,F6.3,1X,5HHRS. ,4A4,10X,13HTEMPERATURE =00268000
     1,F6.1,1X,5HDEG.F)                                                 00269000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,19X4HMACH,  00270000
     13X4HFUEL,5X4HETAP,                                                00271000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00272000
     3.,2X4HCODE,4X2HOR,5X3HEAS,5X4HMACH,3X3HDIV,4X4HRATE,5X4HPROP,     00273000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00274000
     53H(R),11X4HPEHF,26X7H(LB-HR))                                     00275000
 9003 FORMAT(          /9X2HCL,8X2HCD,8X3HL/D,7X4HLIFT,6X4HDRAG,3X9HFUEL00276000
     1 FLOW   ,2X3HBHP,9X6HTHRUST,3X2HCP,6X2HCT,6X1HJ,5X4HVTIP,5X4HETAP 00277000
     2/39X5H(LBS),5X5H(LBS),2X8H(LBS/HR),16X5H(LBS),25X5H(FPS))         00278000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00279000
     1F5.3,2XF6.1,3XF5.3,2XF5.3,3XF6.0,3XF5.3)                          00280000
 1001 FORMAT(9X,42HINSUFFICIENT POWER FOR STEADY LEVEL FLIGHT)          00281000
      IFUDGE = ILOITR                                                   00282000
      M = 0                                                             00283000
      PI = 3.14159                                                      00284000
      WSR=1.0                                                           00285000
      NOCPP = CPPNO + 0.1                                               00286000
      LTRIND  = DNIRTL(ILOITR)                                          00287000
      IF (RSW(ILOITR) .NE. 0.0) WSR = RSW(ILOITR)                       00288000
      HH = H                                                            00289000
      INDATM = ATMIND(ILOITR + 50)                                      00290000
      CALL ATMOS(HH,ATMIND(ILOITR + 50),TIN(ILOITR + 50))               00291000
      TEMP = THETA * 518.69  -  459.69                                  00292000
      IF (OPTIND.NE.2.0) GO TO 273                                      00293000
      IF(INDSGT.EQ.11) GO TO 273                                        00294000
      WRITE(6,9000) STL(ILOITR),(OO3(LTRIND,I),I=1,4),TEMP              00295000
      WRITE(6,9001)                                                     00296000
      IF (KPRINT.EQ.1) WRITE(6,9003)                                    00297000
 273  AN2MAX = AN2M6(ILOITR)                                            00298000
      IF (ENGIND.NE.0.0) ETAP = 1.0                                     00299000
      IF (ENGIND.EQ.0.0.AND.ETAIND.EQ.0.0)                              00300000
     1  ETAP = XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                          00301000
      W0  = W                                                           00302000
      ST0 = ST                                                          00303000
      YLS2 = (ENP - ENPSDL(ILOITR))/ENP                                 00304000
      YLS1 = 1.0/YLS2                                                   00305000
      STMAX= ST + STL(ILOITR)                                           00306000
      CLL = TBCL1(NTCL)                                                 00307000
      IF((DRGIND.EQ.1.).AND.(CLL.GT.TBCL2(NTCL2))) CLL=TBCL2(NTCL2)     00308000
      VL = 1.1*SQRT((W*WSR)/(SW*1.42636*RHO*CLL))                       00309000
      IF(VL.LT.50.) VL = 50.                                            00310000
      IF(VL.GT.150.)VL =150.                                            00311000
      IF(ETAIND.EQ.0.0.OR.ETAIND.EQ.2.0) GO TO 1                        00312000
 173  Q = 1.42636*RHO*VL**2                                             00313000
      EM = VL/SA                                                        00314000
      CL = W * WSR /(SW*Q)                                              00315000
      CALL DRAG                                                         00316000
      IF (NEXT.NE.0) RETURN                                             00317000
      CD = CD + DLOITR(ILOITR)                                          00318000
      TT3 = CD*SW*Q                                                     00319000
      P = A2STR*VT                                                      00320000
      CCT = (PI**3)*TT3*WGA/(0.009507*SIGMA*WG*P**2)                    00321000
      IF(ETAIND.NE.3.0) GO TO 450                                       00322000
      TOAD=CCT*(P/STHETA)**2/3261.21                                    00323000
      IF(TOAD.LE.CPPROP(NOCPP)) GO TO 1                                 00324000
      GO TO 451                                                         00325000
  450 IF(CCT.LE.CPPROP(NOCPP)) GO TO 1                                  00326000
  451 VL=VL+5.0                                                         00327000
      IF (VL.GE.200.) GO TO 1                                           00328000
      GO TO 173                                                         00329000
    1 LC1=0                                                             00330000
      LC2=0                                                             00331000
      LC3=0                                                             00332000
      LC4=0                                                             00333000
      LC5=0                                                             00334000
      LC6=0                                                             00335000
      VMAX= VM0/SQRT(SIGMA)                                             00336000
      IF(VMAX.GT.(SA*EMM0)) VMAX= SA*EMM0                               00337000
      IF (IVLMT.EQ.0.OR.H.GT.10000.) GO TO 36                           00338000
      VLMT = 250./SQRT(SIGMA)                                           00339000
      IF (VMAX.GT.VLMT) VMAX = VLMT                                     00340000
 36   V = VMAX                                                          00341000
      IF(ETAIND.EQ.0.0.OR.ETAIND.EQ.2.0)GO TO 2                         00342000
 174  Q = 1.42636*RHO*V**2                                              00343000
      EM = V/SA                                                         00344000
      CL = W * WSR /(SW*Q)                                              00345000
      CALL DRAG                                                         00346000
      IF (NEXT.NE.0) RETURN                                             00347000
      CD = CD + DLOITR(ILOITR)                                          00348000
      TT3 = CD*SW*Q                                                     00349000
      P = A2STR*VT                                                      00350000
      VMAX = V                                                          00351000
      CCT = (PI**3)*TT3*WGA/(0.009507*SIGMA*WG*P**2)                    00352000
      IF(ETAIND.NE.3.0) GO TO 452                                       00353000
      TOAD=CCT*(P/STHETA)**2/3261.21                                    00354000
      IF(TOAD.LE.CPPROP(NOCPP)) GO TO 26                                00355000
      GO TO 453                                                         00356000
  452 IF(CCT.LE.CPPROP(NOCPP)) GO TO 26                                 00357000
  453 V=V-10.                                                           00358000
      IF (V.LT.VL) GO TO 172                                            00359000
      GO TO 174                                                         00360000
    2 Q   = 1.42636*RHO*V**2                                            00361000
      EM  = V / SA                                                      00362000
      CL = W * WSR /(SW*Q)                                              00363000
      CALL DRAG                                                         00364000
      CD = CD + DLOITR(ILOITR)                                          00365000
      IF (ETAIND.NE.0.0) GO TO 26                                       00366000
      IF(ENGIND.EQ.0.)                                                  00367000
     1ETAP4=XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                             00368000
      IF(M.NE.0)WRITE(6,1221)                                           00369000
 1221 FORMAT(22X35HTHIS ERROR IS IN THE M-ETAP4 TABLE )                 00370000
 26   IF (LC3.EQ.0) GO TO 100                                           00371000
      IF(ENGIND.NE.0.)GO TO 200                                         00372000
      CALL POWAVL(TNRP,EM)                                              00373000
      IF (ETAIND.NE.0.0) GO TO 27                                       00374000
      BHPR= CD * SW * Q * V /(325.8 * ETAT * ETAP4) + DSHPAC            00375000
      YALE22= BHPR /(BHPP * DELTA * STHETA)                             00376000
      YALE22 = YALE22*YLS1                                              00377000
      SHPR  = YALE22                                                    00378000
      GO TO 28                                                          00379000
 27   TPROP = CD*SW*Q                                                   00380000
      CALL POWER(TPROP,YLS2,ETAP)                                       00381000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00382000
 28   CALL POWREQ(EM)                                                   00383000
      TKE  = TPEA                                                       00384000
      KE   =  6                                                         00385000
      F2    = WSHPR* DELTA * STHETA * BHPP                              00386000
      F2 = F2*YLS2                                                      00387000
  300 IF(LC4.EQ.0) GO TO 400                                            00388000
      IF(F2.LT.F1) GO TO 500                                            00389000
      IF(LC4.EQ.3) GO TO 600                                            00390000
      IF(LC4.EQ.1) GO TO 600                                            00391000
  301 V   = V - 1.                                                      00392000
      F1  = F2                                                          00393000
      LC4=3                                                             00394000
      GO TO 2                                                           00395000
  600 IF(OPTIND.NE.2.) GO TO 7609                                       00396000
      IF (ENGIND-1.0) 701,703,703                                       00397000
  701 CALL POWAVL(TMAX,EM)                                              00398000
      GO TO 702                                                         00399000
  703 CALL THRAVL(TMAX,EM)                                              00400000
  702 PEHF = SHPR /SHPA                                                 00401000
      EAS = V *  SQRT(SIGMA)                                            00402000
      IF (ETAIND.EQ.0.0.AND.ENGIND.EQ.0.0) ETAP = ETAP4                 00403000
      F = F1                                                            00404000
      PETF = PEHF                                                       00405000
      IF(INDSGT.EQ.11) RETURN                                           00406000
      WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,EAS,EM,EMD,F1,ETAP    00407000
      IF (KPRINT.EQ.1) CALL SCRIBE(0,ETAP,YLS2)                         00408000
 7609 IF(ST.EQ.STMAX) GO TO 610                                         00409000
      IF(LC6.EQ.1) GO TO 610                                            00410000
      DELTAT= DELST(ILOITR)                                             00411000
      IF(STMAX.LT.(ST + DELST(ILOITR))) DELTAT= STMAX - ST              00412000
      IF(STMAX.LT.(ST + DELST(ILOITR))) LC6=1                           00413000
      WF  = WF + F1 * DELTAT                                            00414000
      W   = W  - F1 * DELTAT                                            00415000
      ST  = ST + DELTAT                                                 00416000
      GO TO 1                                                           00417000
  610 IF(DNIRTL(ILOITR).EQ.1.)RETURN                                    00418000
      DELWFL=W0 - W                                                     00419000
      WFL   =WFL+ DELWFL                                                00420000
      W   = W0                                                          00421000
      ST  = ST0                                                         00422000
      RETURN                                                            00423000
  500 IF(LC4.EQ.3) GO TO 301                                            00424000
      V   = V + 10.                                                     00425000
      F1  = F2                                                          00426000
      LC4=2                                                             00427000
      IF(V.LE.VMAX)GO TO 2                                              00428000
      V   = VMAX                                                        00429000
      LC4=0                                                             00430000
      LC5=1                                                             00431000
      GO TO 2                                                           00432000
  400 IF(LC5.EQ.0) GO TO 401                                            00433000
      DELV= -1.                                                         00434000
      LC4=3                                                             00435000
      GO TO 402                                                         00436000
  401 DELV=  1.                                                         00437000
      LC4=1                                                             00438000
  402 V   = V + DELV                                                    00439000
      F1  =F2                                                           00440000
      GO TO 2                                                           00441000
  200 TR  = CD * SW * Q                                                 00442000
      YALE22= TR /(DELTA * TP)                                          00443000
      YALE22 = YALE22*YLS1                                              00444000
      CALL THRAVL(TNRP,EM)                                              00445000
      SHPR = YALE22                                                     00446000
      CALL  THRREQ(EM)                                                  00447000
      TKE  = TPEA                                                       00448000
      KE   =  6                                                         00449000
      F2   = WSHPR * DELTA * STHETA * TP                                00450000
      F2 = F2*YLS2                                                      00451000
      GO TO 300                                                         00452000
  100 IF(ENGIND.NE.0.) GO TO 110                                        00453000
      CALL  POWAVL(TNRP,EM)                                             00454000
      BLP  = SHPA                                                       00455000
      BHPA= BLP * BHPP * DELTA * STHETA                                 00456000
      BHPA = BHPA*YLS2                                                  00457000
      IF (ETAIND.NE.0.0) GO TO 29                                       00458000
      BHPR= CD * SW * Q *V /(325.8 * ETAT * ETAP4) + DSHPAC             00459000
      GO TO 31                                                          00460000
 29   TPROP = CD*SW*Q                                                   00461000
      CALL POWER(TPROP,YLS2,ETAP)                                       00462000
      BHPR = SHPR*DELTA*STHETA*YLS2*BHPP                                00463000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE                   00464000
 31   DELP1 = BHPA - BHPR                                               00465000
  120 IF(LC2.EQ.0) GO TO 130                                            00466000
      IF(LC2.EQ.1) GO TO 140                                            00467000
      IF(DELP1.LT.0.)GOTO150                                            00468000
      V   = V - 1.                                                      00469000
      LC2=3                                                             00470000
      GO TO 2                                                           00471000
  150 IF(LC2.NE.2) GO TO 151                                            00472000
11150 V   = V + 10.                                                     00473000
      LC2=2                                                             00474000
      GO TO 2                                                           00475000
  151 V   = V + 1.                                                      00476000
  152 VMIN= V                                                           00477000
      LC3=1                                                             00478000
      GO TO 2                                                           00479000
  140 IF(DELP1.LT.0.) GO TO 11150                                       00480000
      V = VL                                                            00481000
      GO TO 152                                                         00482000
  130 IF(LC1.EQ.0) GO TO 131                                            00483000
      IF(DELP1.LT.0.) GO TO 132                                         00484000
      V   = V + 1.                                                      00485000
      LC1=2                                                             00486000
      GO TO 2                                                           00487000
  132 IF(LC1.EQ.1) GO TO 133                                            00488000
      V   = V - 1.                                                      00489000
  134 VMAX= V                                                           00490000
      V = VL                                                            00491000
      LC2=1                                                             00492000
      GO TO 2                                                           00493000
  133 V   = V - 10.                                                     00494000
      LC1=1                                                             00495000
      IF(V.GE.VL)  GO TO 2                                              00496000
 172  WRITE(6,5224)                                                     00497000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00498000
      WRITE(6,1001)                                                     00499000
      WRITE(6,5224)                                                     00500000
      WRITE(6,NLOITR)                                                   00501000
      NEXT=1                                                            00502000
      RETURN                                                            00503000
  131 IF(DELP1.LT.0.) GO TO 133                                         00504000
      GO TO 134                                                         00505000
  110 CALL  THRAVL(TNRP,EM)                                             00506000
      TLP  = SHPA                                                       00507000
      TA  = TLP * DELTA * TP                                            00508000
      TA = TA*YLS2                                                      00509000
      TR  = CD  * SW * Q                                                00510000
      DELP1= TA - TR                                                    00511000
      GO TO 120                                                         00512000
      END                                                               00513000
      FUNCTION XLKUP(XARG,YARG,XTAB,NX,YTAB,NY,ZTAB,NXTAB,NYTAB,IX,IY)  00001000
C**** MEMBER NAME = B93TLOKP                                            00002000
      DIMENSION  XTAB(1),YTAB(1)                                        00003000
      DIMENSION ZTAB(NXTAB,NYTAB)                                       00004000
C     DOUBLE TABLE  PARABOLIC  LOOK-UP        Z = FUNC( X,Y )           00005000
      IERRX = 0                                                         00006000
      IERRY = 0                                                         00007000
C     CHECK THE RANGE OF THE VARIABLE TABLES  (NO EXTRAPOLATION)        00008000
   10 IF (XARG - XTAB(1)) 12,13,13                                      00009000
   12 X = XTAB(1)                                                       00010000
      IERRX = -1                                                        00011000
      GO TO 18                                                          00012000
   13 DO 15 I=2,NX                                                      00013000
      IF (XARG - XTAB(I)) 16,16,15                                      00014000
   15 CONTINUE                                                          00015000
      X = XTAB(NX)                                                      00016000
      IERRX = 1                                                         00017000
      GO TO 18                                                          00018000
   16 X = XARG                                                          00019000
   18 IF (YARG - YTAB(1)) 20,21,21                                      00020000
   20 Y   = YTAB(1)                                                     00021000
      IERRY = -1                                                        00022000
      GO TO 26                                                          00023000
   21 DO 23 I=2,NY                                                      00024000
      IF (YARG - YTAB(I)) 24,24,23                                      00025000
   23 CONTINUE                                                          00026000
      Y = YTAB(NY)                                                      00027000
      IERRY = 1                                                         00028000
      GO TO 26                                                          00029000
   24 Y = YARG                                                          00030000
   26 IX =  IERRX                                                       00031000
      IY =  IERRY                                                       00032000
      XLKUP = BIV(X,Y,XTAB,YTAB,ZTAB,NX,NY,NXTAB,NYTAB)                 00033000
C     ERROR  RETURNS                                                    00034000
      IF (IERRX) 40,45,50                                               00035000
   40 IF (IERRY) 41,42,43                                               00036000
   41 WRITE (6,20000)                                                   00037000
      WRITE (6,20010)                                                   00038000
      GO TO 60                                                          00039000
   42 WRITE (6,21000)                                                   00040000
      WRITE (6,20020)                                                   00041000
      GO TO 60                                                          00042000
   43 WRITE (6,20000)                                                   00043000
      WRITE (6,20030)                                                   00044000
      GO TO 60                                                          00045000
   45 IF (IERRY) 46,60,47                                               00046000
   46 WRITE (6,22000)                                                   00047000
      WRITE (6,20040)                                                   00048000
      GO TO 60                                                          00049000
   47 WRITE (6,22000)                                                   00050000
      WRITE (6,20050)                                                   00051000
      GO TO 60                                                          00052000
   50 IF (IERRY) 51,52,53                                               00053000
   51 WRITE (6,20000)                                                   00054000
      WRITE (6,20060)                                                   00055000
      GO TO 60                                                          00056000
   52 WRITE (6,21000)                                                   00057000
      WRITE (6,20070)                                                   00058000
      GO TO 60                                                          00059000
   53 WRITE (6,20000)                                                   00060000
      WRITE (6,20080)                                                   00061000
   60 RETURN                                                            00062000
20000 FORMAT( 9X117H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. B00063000
     1OTH INDEPENDENT VARIABLES (X AND Y) ARE OUT OF RANGE OF THE TABLE)00064000
21000 FORMAT( 9X114H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00065000
     1HE FIRST INDEPENDENT VARIABLE (X) IS OUT OF RANGE OF THE TABLE)   00066000
22000 FORMAT( 9X115H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00067000
     1HE SECOND INDEPENDENT VARIABLE (Y) IS OUT OF RANGE OF THE TABLE)  00068000
20010 FORMAT(19X69HTHE PROGRAM PICKED UP THE FIRST VALUES, X(1) AND Y(1)00069000
     1, IN BOTH TABLES)                                                 00070000
20030 FORMAT(19X84HTHE PROGRAM PICKED UP THE FIRST VALUE, X(1), AND THE 00071000
     1LAST VALUE, Y(N), IN THE TABLES)                                  00072000
20060 FORMAT(19X84HTHE PROGRAM PICKED UP THE LAST VALUE, X(N), AND THE F00073000
     1IRST VALUE, Y(1), IN THE TABLES)                                  00074000
20080 FORMAT(19X68HTHE PROGRAM PICKED UP THE LAST VALUES, X(N) AND Y(N),00075000
     1 IN BOTH TABLES)                                                  00076000
20020 FORMAT(19X57HTHE PROGRAM PICKED UP THE FIRST VALUE, X(1), IN THE T00077000
     1ABLE)                                                             00078000
20070 FORMAT(19X56HTHE PROGRAM PICKED UP THE LAST VALUE, X(N), IN THE TA00079000
     1BLE)                                                              00080000
20040 FORMAT(19X57HTHE PROGRAM PICKED UP THE FIRST VALUE, Y(1), IN THE T00081000
     1ABLE)                                                             00082000
20050 FORMAT(19X56HTHE PROGRAM PICKED UP THE LAST VALUE, Y(N), IN THE TA00083000
     1BLE)                                                              00084000
      END                                                               00085000
      SUBROUTINE LIFREQ                                                 00001000
C**** MEMBER NAME = B93TLREQ                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      NTF  = 8                                                          00257000
      NWF  = 8                                                          00258000
      TEA = PARA(FREQ,FAVL,TF,NTF,IX)                                   00259000
 1001 FORMAT(9X,46HTHIS ERROR IS IN THE LIFT ENGINE  POWER  TABLE)      00260000
      IF (IX.NE.0)  WRITE(6,1001)                                       00261000
      FWR  = PARA(TEA,TFW,FWDOT,NWF,IX)                                 00262000
 1002 FORMAT(9X,49HTHIS ERROR IS IN THE LIFT ENGINE  FUEL FLOW TABLE)   00263000
      IF (IX.NE.0) WRITE(6,1002)                                        00264000
      FWR = FWR * CKFF                                                  00265000
      TLEA  =  TEA * THETA                                              00266000
      RETURN                                                            00267000
      END                                                               00268000
      FUNCTION PARA (ARG,XTAB,YTAB,NARG,IERR)                           00001000
C**** MEMBER NAME = B93TPARA                                            00002000
      DIMENSION XTAB(1),YTAB(1)                                         00003000
      IERR = 0                                                          00004000
C     A00PAR1                                                           00005000
CPARABOLIC INTERPOLATION FUNCTION - Y=PARA(ARG,XTAB,YTAB,NARG)          00006000
C     FUNCTION PARA (ARG,XTAB,YTAB,NARG)                                00007000
C     ARG=INDEPENDENT VARIABLE                                          00008000
C     XTAB=TABLE OF INDEPENDENT VARIABLES                               00009000
C     YTAB=TABLE OF DEPENDENT VARIABLES                                 00010000
C     NARG=NO. OF ENTRIES IN THE TABLE                                  00011000
C     IS ARG. LESS THAN THE SMALLEST VALUE IN TABLE                     00012000
    1 IF (ARG-XTAB(1))2,3,3                                             00013000
C     YES-USE FIRST 3 VALUES FOR EXTRAPALATION                          00014000
    2 J=1                                                               00015000
      ARG = XTAB(1)                                                     00016000
 1001 FORMAT(9X,105H***ERROR THE FOLLOWING VALUES MAY NOT BE ACCURATE. T00017000
     1HE INDEPENDENT VARIABLE IS OUT OF RANGE OF THE TABLE.)            00018000
 1002 FORMAT(19X,50HTHE PROGRAM PICKED UP THE FIRST VALUE IN THE TABLE) 00019000
 1003 FORMAT(19X,50HTHE PROGRAM PICKED UP THE LAST  VALUE IN THE TABLE) 00020000
      WRITE(6,1001)                                                     00021000
      WRITE(6,1002)                                                     00022000
      IERR = 1                                                          00023000
      GO TO 9                                                           00024000
C     NO-FIND WHERE ARG LIES BETWEEN                                    00025000
    3 DO 5I=2,NARG                                                      00026000
    4 IF(ARG-XTAB(I))6,6,5                                              00027000
    5 CONTINUE                                                          00028000
    6 IF (I-NARG)8,7,7                                                  00029000
C     IF LAST VALUE, USE LAST 3 ITEMS IN TABLE                          00030000
    7 J=NARG-2                                                          00031000
      IF (ARG -XTAB(NARG))  9,9,31                                      00032000
   31 ARG = XTAB(NARG)                                                  00033000
      IERR = 1                                                          00034000
      WRITE(6,1001)                                                     00035000
      WRITE(6,1003)                                                     00036000
      GO TO 9                                                           00037000
C     OK-USE VALUE BEFORE AND 2 AFTER                                   00038000
    8 J=I-1                                                             00039000
C     DO INTEROLATION                                                   00040000
    9 PART1=(((ARG-XTAB(J+1))*(ARG-XTAB(J+2)))/((XTAB(J)-XTAB           00041000
     1(J+1))*(XTAB(J)-XTAB(J+2))))*YTAB(J)                              00042000
   10 PART2 = (((ARG-XTAB(J))*(ARG-XTAB(J+2)))/((XTAB(J+1)-XTAB         00043000
     1(J))*(XTAB(J+1)-XTAB(J+2))))*YTAB(J+1)                            00044000
   11 PART3=(((ARG-XTAB(J))*(ARG-XTAB(J+1)))/((XTAB(J+2)-               00045000
     1XTAB(J))*(XTAB(J+2)-XTAB(J+1))))*YTAB(J+2)                        00046000
   12 PARA=PART 1 + PART 2 + PART 3                                     00047000
      RETURN                                                            00048000
      END                                                               00049000
      SUBROUTINE POWAVL(TPS,AM)                                         00001000
C**** MEMBER NAME = B93TPAVL                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCT0(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  QARAY(20)                                              00257000
      NLIM = 0                                                          00258000
      TEA = TPS/THETA                                                   00259000
      IF (IWD)  4,4,2                                                   00260000
    2 WREF = XLKUP(0.0,TMAX,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)            00261000
 1001 FORMAT(9X,66HTHIS ERROR IS IN THE  M  PART OF THE REFERED FUEL FLO00262000
     1W POWER TABLE)                                                    00263000
 1002 FORMAT(9X,66HTHIS ERROR IS IN THE  T  PART OF THE REFERED FUEL FLO00264000
     1W POWER TABLE)                                                    00265000
      IF (IX.NE.0) WRITE(6,1001)                                        00266000
      IF (IY.NE.0) WRITE(6,1002)                                        00267000
      WSHP = WMAX * WREF / (DELTA * STHETA)                             00268000
      WTEMP = XLKUP(AM,TEA,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00269000
      IF  (IX.NE.0) WRITE(6,1001)                                       00270000
      IF  (IY.NE.0) WRITE(6,1002)                                       00271000
      IF (WSHP.GE.WTEMP) GO TO 4                                        00272000
      TEWD = XIBIV(AM,WSHP,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IZ)             00273000
 1003 FORMAT(9X,60HTHIS ERROR IS IN THE  W  PART OF THE REFERED FUEL FLO00274000
     1W TABLE)                                                          00275000
      IF (IX.NE.0) WRITE(6,1001)                                        00276000
      IF (IZ.NE.0) WRITE(6,1003)                                        00277000
      IF (TEA - TEWD) 4,4,3                                             00278000
    3 TEA = TEWD                                                        00279000
      NLIM = 1                                                          00280000
 4    IF(IN1) 7,7,5                                                     00281000
    5 A1REF = A1MAX / STHETA                                            00282000
      A1TEMP = XLKUP(AM,TEA,AM1,NM1,TN1,NT1,AONE,6,8,IX,IY)             00283000
      IF (IX.NE.0) WRITE(6,1004)                                        00284000
      IF (IY.NE.0) WRITE(6,1010)                                        00285000
 1010 FORMAT(9X,57HTHIS ERROR IS IN THE  T  PART OF THE N SUB 1 POWER  T00286000
     1ABLE)                                                             00287000
      IF (A1REF.GE.A1TEMP) GO TO 7                                      00288000
      TEN1 = XIBIV(AM,A1REF,AM1,NM1,TN1,NT1,AONE,6,8,IX,IZ)             00289000
 1004 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE N SUB 1 POWER TA00290000
     1BLE)                                                              00291000
 1005 FORMAT(9X,56HTHIS ERROR IS IN THE  N1 PART OF THE N SUB 1 POWER TA00292000
     1BLE)                                                              00293000
      IF (IX.NE.0) WRITE(6,1004)                                        00294000
      IF (IZ.NE.0) WRITE(6,1005)                                        00295000
      IF (TEA - TEN1) 7,7,6                                             00296000
    6 TEA = TEN1                                                        00297000
      NLIM = 2                                                          00298000
 7    IF (IN3) 75,75,41                                                 00299000
 41   A1REF = A3MAX*SQRT(1.0 + 0.2*AM**2.)                              00300000
      A1TEMP = XLKUP(AM,TEA,AM1,NM1,TN1,NT1,AONE,6,8,IX,IY)             00301000
      IF (IX.NE.0) WRITE(6,1004)                                        00302000
      IF (IY.NE.0) WRITE(6,1010)                                        00303000
      IF (A1REF.GE.A1TEMP) GO TO 75                                     00304000
      TEN1 = XIBIV(AM,A1REF,AM1,NM1,TN1,NT1,AONE,6,8,IX,IZ)             00305000
      IF (IX.NE.0) WRITE(6,1004)                                        00306000
      IF (IZ.NE.0) WRITE(6,1005)                                        00307000
      IF (TEA.LE.TEN1) GO TO 75                                         00308000
      TEA = TEN1                                                        00309000
      NLIM = 6                                                          00310000
 75   CALL ENG1(TEA,AM)                                                 00311000
      IF (IQ) 16,16,8                                                   00312000
    8 IF (IN2 -1) 9,9,10                                                00313000
    9 A2REF = XLKUP(AM,TEA,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00314000
 1006 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE N SUB 2 POWER TA00315000
     1BLE)                                                              00316000
 1007 FORMAT(9X,56HTHIS ERROR IS IN THE  T  PART OF THE N SUB 2 POWER TA00317000
     1BLE)                                                              00318000
      IF (IX.NE.0) WRITE(6,1006)                                        00319000
      IF (IY.NE.0) WRITE(6,1007)                                        00320000
      A2STR = A2REF  * STHETA                                           00321000
      GO TO 110                                                         00322000
   10 A2STR = AN2MAX * A2MAX                                            00323000
  110 Q2 = SHPA * DELTA * STHETA / A2STR                                00324000
      IF (Q2 - QMAX) 15,15,11                                           00325000
   11 DO 14 I=1,NT2                                                     00326000
      TII = TN2(I)                                                      00327000
      IF(TII.LT.TSHP(1)) TII=TSHP(1)                                    00328000
      IF(TII.GT.TSHP(NTS)) TII=TSHP(NTS)                                00329000
      CALL ENG1(TII,AM)                                                 00330000
      IF (IN2 -1) 12,12,13                                              00331000
   12 A2REF = XLKUP(AM,TII,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00332000
      IF (IX.NE.0) WRITE(6,1006)                                        00333000
      IF (IY.NE.0) WRITE(6,1007)                                        00334000
      A2STR = A2REF * STHETA                                            00335000
      GO TO 113                                                         00336000
   13 A2STR = AN2MAX * A2MAX                                            00337000
  113 QARAY(I) = SHPA * DELTA * STHETA / A2STR                          00338000
   14 CONTINUE                                                          00339000
      TEA = PARA(QMAX,QARAY,TN2,NT2,IX)                                 00340000
 1009 FORMAT(9X,41HTHIS ERROR IS IN THE TORQUE LIMIT LOOK-UP)           00341000
      IF (IX.NE.0) WRITE(6,1009)                                        00342000
      IF (IN2.EQ.2) GO TO 115                                           00343000
      A2REF = XLKUP(AM,TEA,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00344000
      IF (IX.NE.0) WRITE(6,1006)                                        00345000
      IF (IY.NE.0) WRITE(6,1007)                                        00346000
      A2STR = A2REF * STHETA                                            00347000
  115 CALL ENG1(TEA,AM)                                                 00348000
      NLIM = 4                                                          00349000
   15 GO TO 20                                                          00350000
 16   IF (IN2-1) 17,17,25                                               00351000
   17 A2REF = XLKUP(AM,TEA,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00352000
      IF (IX.NE.0) WRITE(6,1006)                                        00353000
      IF (IY.NE.0) WRITE(6,1007)                                        00354000
      A2STR = A2REF * STHETA                                            00355000
   20 IF (IN2-1) 25,21,25                                               00356000
   21 IF (A2STR - A2MAX) 25,25,22                                       00357000
   22 A2REF = A2MAX  / STHETA                                           00358000
      TEA  = XIBIV(AM,A2REF,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IZ)             00359000
      A2STR = A2MAX                                                     00360000
      NLIM = 3                                                          00361000
 1008 FORMAT(9X,56HTHIS ERROR IS IN THE  N2 PART OF THE N SUB 2 POWER TA00362000
     1BLE)                                                              00363000
      IF (IX.NE.0) WRITE(6,1006)                                        00364000
      IF (IZ.NE.0) WRITE(6,1008)                                        00365000
   25 CALL ENG1(TEA,AM)                                                 00366000
      WSHPA = XLKUP(AM,TEA,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00367000
      IF (IX.NE.0)  WRITE(6,1001)                                       00368000
      IF (IY.NE.0)  WRITE(6,1002)                                       00369000
      IF (WSHPA.LT.0.0)  WSHPA = 0.0                                    00370000
      WSHPA = WSHPA * CKFF                                              00371000
      TPEA  = TEA  * THETA                                              00372000
      NPLIM = NLIM                                                      00373000
      RETURN                                                            00374000
      END                                                               00375000
      SUBROUTINE  PLOTXY(IPLOT)                                         00001000
C**** MEMBER NAME = B93TPLOT                                            00002000
      CALL LOADET(SS,2)                                                 00003000
 1000 FORMAT(/44X36HA  PLOT  OF  X - Y  IN  3  DIMENSION)               00004000
 1001 FORMAT(///,5(40X,1HI/),40X1HI,42(1H.),1H*/40X1HI,41X,2H*.,/       00005000
     140X1HI28X2H**10X3H* ./,40X1HI27X4H*  *8X4H*  ./37X4HZ  I26X       00006000
     25H*   *7X5H*   ./,40X2HI.21X4H****5X1H*5X1H*4X1H./37X6HI  I .,    00007000
     3  19X1H*10X6H**   *4X1H./40X4HI  .17X1H*13X3H* *5X1H./37X       8H00008000
     4A  I   .15X1H*15X1H*6X1H./37X4HX  I4X1H.7X2H**4X1H*23X1H./       300009000
     57X4HI  I5X1H.5X7H*  *  *24X1H./37X4HS  I6X1H.3X1H*4X2H**25X       00010000
     61H.)                                                              00011000
 1002 FORMAT(  40X1HI7X3H. *32X1H./40X1HI8X1H*33X1H./4(40X1HI8X1H.      00012000
     133X1H./),40X1HI50(1H-)/39X1H/9X1H.6X1H./35X4HS  /10X1H.5X1H.      00013000
     2 4X8HY - AXIS/34X4HI  /11X1H.4X1H./33X4HX  /12X1H.3X1H./32X       00014000
     34HA  /13X4H.  ./34X1H/14X3H. ./30X4H/  /15X2H../32X1H/17(1H.)     00015000
     4  /28X4HX  //30X1H//29X1H//28X1H//)                               00016000
      WRITE(6,1000)                                                     00017000
      WRITE(6,1001)                                                     00018000
      WRITE(6,1002)                                                     00019000
      RETURN                                                            00020000
      END                                                               00021000
      SUBROUTINE POWER(TPROP,YLS2,ETAP)                                 00001000
C**** MEMBER NAME = B93TPOWR                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
      DIMENSION A0(3,15),A1(3,15),A2(3,15),BB0(16),BB1(16),BB2(16),     00006000
     1 RJ3(10),CPOW3(10),ETAI3(10,10),RJ4(10),CPOW4(10),ETAI4(10,10),   00007000
     2AMACH(3),CLLL(15),CLGAM(16),CPOW33(20),CTI3(20),CTI4(20),         00008000
     3 GMDD1(16),GAMD11(3,15)                                           00009000
       DIMENSION SHP(10),ETAPP(10),TPROPP(10)                           00010000
C ****    INPUT  COMMON                                                 00011000
C                                                                       00012000
C                                                                       00013000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00014000
C                                                                       00015000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00016000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00017000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00018000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00019000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00020000
C                                                                       00021000
C                                                                       00022000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00023000
C                                                                       00024000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00025000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00026000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00027000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00028000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00029000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00030000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00031000
     7SKIP1(9)                                                          00032000
C                                                                       00033000
C                                                                       00034000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00035000
C                                                                       00036000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00037000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00038000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00039000
C                                                                       00040000
C                                                                       00041000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00042000
C                                                                       00043000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00044000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00045000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00046000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00047000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00048000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00049000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00050000
     7CKRC      ,SPACE3(38)                                             00051000
C                                                                       00052000
C                                                                       00053000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00054000
C                                                                       00055000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00056000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00057000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00058000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00059000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00060000
C                                                                       00061000
C                                                                       00062000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00063000
C                                                                       00064000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00065000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00066000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00067000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00068000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00069000
     5SKMT      ,SKNAC     ,SKLMT                                       00070000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00071000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00072000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00073000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00074000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00075000
C                                                                       00076000
C                                                                       00077000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00078000
C                                                                       00079000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00080000
     1SPACE6(50)                                                        00081000
C                                                                       00082000
C                                                                       00083000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00084000
C                                                                       00085000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00086000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00087000
C                                                                       00088000
C                                                                       00089000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00090000
C                                                                       00091000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00092000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00093000
C                                                                       00094000
C                                                                       00095000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00096000
C                                                                       00097000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00098000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00099000
C                                                                       00100000
C                                                                       00101000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00102000
C                                                                       00103000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00104000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00105000
C                                                                       00106000
C                                                                       00107000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00108000
C                                                                       00109000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00110000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00111000
C                                                                       00112000
C                                                                       00113000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00114000
C                                                                       00115000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00116000
     1WGTIND    ,SPAC12(49)                                             00117000
C                                                                       00118000
C                                                                       00119000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00120000
C                                                                       00121000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00122000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00123000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00124000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00125000
C                                                                       00126000
C                                                                       00127000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00128000
C                                                                       00129000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00130000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00131000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00132000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00133000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00134000
     5SPAC14(35)                                                        00135000
C                                                                       00136000
C                                                                       00137000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00138000
C                                                                       00139000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00140000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00141000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00142000
C                                                                       00143000
C                                                                       00144000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00145000
C                                                                       00146000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00147000
     1SAVE(58)                                                          00148000
C                                                                       00149000
C                                                                       00150000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00151000
C                                                                       00152000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00153000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00154000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00155000
C                                                                       00156000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00157000
C                                                                       00158000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00159000
C                                                                       00160000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00161000
     1SPAC17(22)                                                        00162000
C                                                                       00163000
C                                                                       00164000
C ****         COMMON    MAIN                                           00165000
C                                                                       00166000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00167000
     1R         ,ST        ,H        ,OPTION                            00168000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00169000
     1BHPP      ,TP        ,TL        ,SEE                              00170000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00171000
      COMMON     NEXT      ,DTOR      ,RTOD                             00172000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00173000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00174000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00175000
C                                                                       00176000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00177000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00178000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00179000
     2FWR       ,TLEA      ,NLLIM                                       00180000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00181000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00182000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00183000
C                                                                       00184000
C                   AERO                      AERO                      00185000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00186000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00187000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00188000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00189000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00190000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00191000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00192000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00193000
C                                                                       00194000
C                   ATMOS                     ATMOS                     00195000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00196000
      COMMON     RHO       ,S2RHO                                       00197000
C                                                                       00198000
C                   CHGFW                     CHGFW                     00199000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00200000
C                                                                       00201000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00202000
C                                                                       00203000
C                   CLIMB                     CLIMB                     00204000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00205000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00206000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00207000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00208000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00209000
      COMMON    V1      ,INDEX3      ,IOPTH                             00210000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00211000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00212000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00213000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00214000
C                                                                       00215000
C                   DRAG                      DRAG                      00216000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00217000
C                                                                       00218000
C                   DSCNT                     DSCNT                     00219000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00220000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00221000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00222000
      COMMON     T                                                      00223000
C                                                                       00224000
C                   ENGSZ                     ENGSZ                     00225000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00226000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00227000
C                                                                       00228000
      COMMON     P         ,ANXMAX                                      00229000
C                   LOITR                     LOITR                     00230000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00231000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00232000
C                                                                       00233000
C                   SIZTR                     SIZTR                     00234000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00235000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00236000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00237000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00238000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00239000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00240000
C                                                                       00241000
C                   TAXI                      TAXI                      00242000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00243000
C                                                                       00244000
C                   TOHL                      TOHL                      00245000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00246000
C                                                                       00247000
C                   WGHTR                     WGHTR                     00248000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00249000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00250000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00251000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00252000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00253000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00254000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00255000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00256000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00257000
     1EMDEMD(10),PEHFPE(10)                                             00258000
      COMMON/ODD/A0,A1,A2,BB0,BB1,BB2,RJ3,CPOW3,ETAI3,RJ4,CPOW4,        00259000
     1 ETAI4,AMACH,CLLL,CLGAM,CPOW33,CTI3,CTI4,GMDD1,GAMD11             00260000
      NOCTSG = CTSGNO + 0.01                                            00261000
      NOMTP  = TPMNO + 0.01                                             00262000
      NOXPJ = XPJNO + 0.1                                               00263000
      NOCPP = CPPNO + 0.1                                               00264000
      PI = 3.14159                                                      00265000
      TPROP1 = TPROP                                                    00266000
      IT1 = 0                                                           00267000
      ETAP = 0.8                                                        00268000
      P1 = 0.0                                                          00269000
      IF (IN2.EQ.2) A2STR=A2MAX*AN2MAX                                  00270000
      IF (IN2.EQ.2) P = A2STR*VT                                        00271000
 14   IF (V.EQ.0.0) GO TO 11                                            00272000
      SHPR = (1.689*V*TPROP1)/(550.0*ETAT*ETAP*DELTA*STHETA*            00273000
     1 BHPP*YLS2)  +  DSHPAC/(DELTA * STHETA * BHPP)                    00274000
 23   IF (IN2.EQ.2) GO TO 22                                            00275000
 15   TPS = TSHP(NTS)*THETA                                             00276000
      CALL POWAVL(TPS,EM)                                               00277000
      IF (SHPA.LT.SHPR) GO TO 25                                        00278000
      GO TO 12                                                          00279000
 11   SHPR = TPROP1**1.5*SQRT(WGA/WG)/(550.0*ETAT*ETAP*DELTA*           00280000
     1 STHETA*S2RHO*BHPP*YLS2)  +  DSHPAC/(DELTA * STHETA * BHPP)       00281000
      GO TO 23                                                          00282000
 12   CALL POWREQ(EM)                                                   00283000
      P = A2STR*VT                                                      00284000
 22   IF (IT1.GT.25) GO TO 5                                            00285000
      IT1 = IT1 + 1                                                     00286000
      IF (ETAIND.EQ.2.0) GO TO 13                                       00287000
      REALJ = 1.689*PI*V/P                                              00288000
      CCT = (PI**3)*TPROP1*WGA/(0.009507*SIGMA*WG*P**2)                 00289000
      IF(ETAIND.NE.3.0) GO TO 300                                       00290000
      TOAD=CCT*0.009507*P**2/(THETA*PI**3)                              00291000
      HPADTH=XLKUP(EM,TOAD,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IZ)   00292000
      CCP=HPADTH*550.*PI**4*STHETA**3/(0.009507*P**3)                   00293000
      GO TO 301                                                         00294000
 300  IF(REALJ.EQ.0.0) GO TO 712                                        00295000
      CCP=XLKUP(REALJ,CCT,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IZ)    00296000
      GO TO 301                                                         00297000
  712 TIPP = P/(SA * 1.689)                                             00298000
      ETAP = XLKUP(CTSIG,TIPP,CTOSIG,NOCTSG,TIPM,NOMTP,FMER,10,6,IX,IZ) 00299000
  301 IF(IX.NE.0.AND.REALJ.GT.0.0) WRITE(6,1001)                        00300000
 1001 FORMAT(9X,89HTHIS ERROR IS IN THE  J  PART OF THE PROPELLER POWER 00301000
     1COEFFICIENT TABLE - SUBROUTINE POWER)                             00302000
      IF (IZ.NE.0.AND.REALJ.GT.0.0) WRITE(6,1002)                       00303000
 1002 FORMAT(9X,89HTHIS ERROR IS IN THE  CT PART OF THE PROPELLER POWER 00304000
     1COEFFICIENT TABLE - SUBROUTINE POWER)                             00305000
      IF(IX.NE.0.AND.REALJ.EQ.0.0) WRITE(6,1003)                        00306000
 1003 FORMAT(9X,*THIS ERROR IS IN THE CT/SIGMA PART OF THE FIGURE*,     00307000
     1* OF MERIT TABLE - SUBROUTINE POWER*)                             00308000
      IF(IZ.NE.0.AND.REALJ.EQ.0.0) WRITE(6,1004)                        00309000
 1004 FORMAT(9X,*THIS ERROR IS IN THE MACH NO. PART OF THE FIGURE*,     00310000
     1* OF MERIT TABLE - SUBROUTINE POWER*)                             00311000
      IF (REALJ.EQ.0.0) GO TO 17                                        00312000
      ETAP = REALJ * CCT/CCP                                            00313000
      SHPR = (1.689*V*TPROP1)/(550.*ETAT*ETAP*DELTA*STHETA*             00314000
     1BHPP*YLS2) + DSHPAC/(DELTA * STHETA * BHPP)                       00315000
C **  ETAIND IS EQUAL TO 0.0 OR 1.0 FOR THIS CALCULATION                00316000
 24   IF (IN2.EQ.2) GO TO 6                                             00317000
      IF (ABS(1.0-P1/P).LE.0.01) GO TO 6                                00318000
      P1 = P                                                            00319000
      GO TO 15                                                          00320000
 13   SHPA = SHPR                                                       00321000
      CALL THRUST(TPROP,YLS2,ETAP)                                      00322000
      IF (ABS(1.0-TPROP/TPROP1).GT.0.005) GO TO 27                      00323000
      IF (ABS(1.0-P1/P).LE.0.01) GO TO 6                                00324000
 27   P1 = P                                                            00325000
      IF (IT1.GT.10) GO TO 25                                           00326000
      GO TO 14                                                          00327000
 17   CCP = 0.798*CCT**1.5/ETAP                                         00328000
      SHPR = TPROP1**1.5*SQRT(WGA/WG)/(550.*ETAT*ETAP*DELTA*            00329000
     1STHETA*S2RHO*BHPP*YLS2)  +  DSHPAC/(DELTA * STHETA * BHPP)        00330000
C **  AT THIS POINT IN THE SUBROUTINE DSHPAC IS A DIRECT ADDITION TO THE00331000
C     POWER REQUIRED                                                    00332000
      GO TO 24                                                          00333000
 5    WRITE(6,10)                                                       00334000
 10   FORMAT(10X,*J DOES NOT CONVERGE IN TWENTY FIVE ITERATIONS - SUBROU00335000
     1TINE POWER*)                                                      00336000
      GO TO 6                                                           00337000
 25   TPS = TSHP(NTS)*THETA                                             00338000
      CALL POWAVL(TPS,EM)                                               00339000
      SHPMAX = SHPA                                                     00340000
      A2S10 = A2STR                                                     00341000
      SHPMIN = V*TPROP1 /(325.6365*ETAT*DELTA*BHPP*YLS2*STHETA) +DSHPAC/00342000
     1  (DELTA * STHETA * BHPP)                                         00343000
C **  SHPMIN IS BASED ON 100 PERCENT EFFICIENCY; THIS IS THE MINIMUM    00344000
C     POWER REQUIRED AND DOES INCLUDE DSHPAC                            00345000
      IF (V.EQ.0.0) SHPMIN = TPROP1**1.5*SQRT(WGA/WG)/                  00346000
     1 (550.*ETAT*DELTA*S2RHO*BHPP*YLS2*STHETA) + DSHPAC/(DELTA*STHETA* 00347000
     2   BHPP)                                                          00348000
      DELSHP = (SHPMAX - SHPMIN)/9.0                                    00349000
      DO 20 I=1,10                                                      00350000
      XI = I                                                            00351000
      SHP(I) = SHPMIN + DELSHP*(XI-1.0)                                 00352000
      SHPR = SHP(I)                                                     00353000
      A2STR = A2S10                                                     00354000
      IF (IN2.EQ.2) GO TO 21                                            00355000
      IF(I.NE.10) CALL POWREQ(EM)                                       00356000
 21   SHPA = SHPR                                                       00357000
      CALL THRUST(TPROP,YLS2,ETAP)                                      00358000
      ETAPP(I) = ETAP                                                   00359000
      TPROPP(I) = TPROP                                                 00360000
      K = I                                                             00361000
      IF (K.LT.3) GO TO 20                                              00362000
      IF (TPROP1.LT.TPROPP(K)) GO TO 215                                00363000
 20   CONTINUE                                                          00364000
      SHPR = 1.1*SHPMAX                                                 00365000
      GO TO 6                                                           00366000
 215  ETAP = TABLE(TPROP1,TPROPP,ETAPP,K,2,M)                           00367000
      SHPR = TABLE(TPROP1,TPROPP,SHP,K,2,M)                             00368000
 6    RETURN                                                            00369000
      END                                                               00370000
      SUBROUTINE POWREQ(AM)                                             00001000
C**** MEMBER NAME = B93TPREQ                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  ARRAY(10)                                              00257000
      TII = XIBIV(AM,SHPR,AMSHP,NMS,TSHP,NTS,SHPAV,6,8,IX,IZ)           00258000
 1001 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE REFERED POWER TA00259000
     1BLE)                                                              00260000
 1002 FORMAT(9X,56HTHIS ERROR IS IN THE  HP PART OF THE REFERED POWER TA00261000
     1BLE)                                                              00262000
      IF (IX.NE.0) WRITE(6,1001)                                        00263000
      IF (IZ.NE.0) WRITE(6,1002)                                        00264000
      IF (IN2 -1)  1,1,4                                                00265000
    1 IF (IRN.EQ.0) GO TO 20                                            00266000
    4 DO 10 I=1,NTS                                                     00267000
      TII = TSHP(I)                                                     00268000
      CALL ENG1(TII,AM)                                                 00269000
   10 ARRAY(I) = SHPA                                                   00270000
      TII = PARA(SHPR,ARRAY,TSHP,NTS,IX)                                00271000
 1010 FORMAT(9X,43HTHIS ERROR IS IN THE POWER REQUIRED LOOK-UP)         00272000
      IF (IX.NE.0) WRITE(6,1010)                                        00273000
 20   IF (IN2-1) 21,21,22                                               00274000
 21   A2REF = XLKUP(AM,TII,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IY)              00275000
      IF (IX.NE.0) WRITE(6,1006)                                        00276000
 1006 FORMAT(9X,56HTHIS ERROR IS IN THE  M  PART OF THE N SUB 2 POWER TA00277000
     1BLE)                                                              00278000
      IF (IY.NE.0) WRITE(6,1007)                                        00279000
 1007 FORMAT(9X,56HTHIS ERROR IS IN THE  T  PART OF THE N SUB 2 POWER TA00280000
     1BLE)                                                              00281000
      A2STR = A2REF*STHETA                                              00282000
      GO TO 23                                                          00283000
 22   A2STR = AN2MAX*A2MAX                                              00284000
 23   WSHPR = XLKUP(AM,TII,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00285000
 1003 FORMAT(9X,60HTHIS ERROR IS IN THE  M  PART OF THE REFERED FUEL FLO00286000
     1W TABLE)                                                          00287000
 1004 FORMAT(9X,60HTHIS ERROR IS IN THE  T  PART OF THE REFERED FUEL FLO00288000
     1W TABLE)                                                          00289000
      IF (IX.NE.0) WRITE(6,1003)                                        00290000
      IF (IY.NE.0) WRITE(6,1004)                                        00291000
      IF (WSHPR.LT.0.0)  WSHPR  =0.0                                    00292000
      WSHPR = WSHPR * CKFF                                              00293000
      TPEA  = TII  * THETA                                              00294000
      RETURN                                                            00295000
      END                                                               00296000
      SUBROUTINE PRFRM                                                  00001000
C**** MEMBER NAME = B93TPRFM                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      COMMON/HAL/INDSGT,KE                                              00254000
C **  HAL IS PASSED AMOUNG CRUS1,3, PRFRP, PRFRM, LOITR                 00255000
      DIMENSION DATA(1)                                                 00256000
      EQUIVALENCE (DATA(1),OPTIND)                                      00257000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00258000
      KE = 0                                                            00259000
      IF(OPTIND.EQ.2.) CALL LOADET(SS,2)                                00260000
      IF(OPTIND.EQ.2.) WRITE(6,9001)                                    00261000
 9001 FORMAT(/15X,24HMISSION PERFORMANCE DATA/)                         00262000
      DO 13 IAAA=1,11                                                   00263000
   13 STORWF(IAAA)= 0.                                                  00264000
      W  = WG                                                           00265000
      WF = 0.                                                           00266000
      WFL   =0.                                                         00267000
      IF(SAVE(24).NE.1.) GO TO 91                                       00268000
      ITAXI = 0                                                         00269000
      ITOHL = 0                                                         00270000
      ICLIMB= 0                                                         00271000
      ICRUS =0                                                          00272000
      IDSCNT= 0                                                         00273000
      ILOITR= 0                                                         00274000
      IFUEL = 0                                                         00275000
      ICHGPL= 0                                                         00276000
      ITALT = 0                                                         00277000
      IPLOT = 0                                                         00278000
      IPRFRP = 0                                                        00279000
      EMPTY1 = 0.                                                       00280000
      I=0                                                               00281000
   91 I=I+1                                                             00282000
      INDSGT= SGTIND(I)                                                 00283000
  100 INDEX = INDSGT                                                    00284000
      GO TO (1,2,3,4,5,6,7,8,9,10,11),INDEX                             00285000
    1 ITAXI = ITAXI  +  1                                               00286000
      CALL TAXI(ITAXI)                                                  00287000
      GO TO 200                                                         00288000
    2 ITOHL = ITOHL  +  1                                               00289000
      CALL TOHL(ITOHL)                                                  00290000
      GO TO 200                                                         00291000
    3 ICLIMB= ICLIMB +  1                                               00292000
      IF (IOPTH.EQ.0.OR.SGTIND(I+1).NE.4.) GO TO 101                    00293000
      INOPTH = 1                                                        00294000
      INDEX3 = ICRUS + 1                                                00295000
 101  CALL CLIMB(ICLIMB)                                                00296000
      INOPTH = 0                                                        00297000
      GO TO 200                                                         00298000
    4 ICRUS = ICRUS + 1                                                 00299000
      INDCRS= CRSIND(ICRUS)                                             00300000
      EMPTY1 = SGTIND(I+1)                                              00301000
      IF (EMPTY1.NE.5.) GO TO 40                                        00302000
      IF((DESIND(IDSCNT+1).EQ.2.).OR.(DESIND(IDSCNT+1).GE.4.))EMPTY1=51.00303000
   40 IF (INDCRS - 2) 41,42,43                                          00304000
   41 CALL CRUS1(ICRUS)                                                 00305000
      GO TO 200                                                         00306000
   42 CALL CRUS2(ICRUS)                                                 00307000
      GO TO 200                                                         00308000
   43 CALL CRUS3(ICRUS)                                                 00309000
      GO TO 200                                                         00310000
    5 IDSCNT= IDSCNT +  1                                               00311000
      IF  (DESIND(IDSCNT).GT.4.)  GO TO 50                              00312000
      CALL DSCNT(IDSCNT)                                                00313000
      GO TO 200                                                         00314000
   50 CALL DSCEX(IDSCNT)                                                00315000
      GO TO 200                                                         00316000
    6 ILOITR= ILOITR +  1                                               00317000
      CALL LOITR(ILOITR)                                                00318000
      GO TO 200                                                         00319000
    7 IFUEL = IFUEL + 1                                                 00320000
      CALL CHGFW (IFUEL)                                                00321000
      GO TO 200                                                         00322000
    8 ICHGPL= ICHGPL +  1                                               00323000
      CALL CHGPL(ICHGPL)                                                00324000
      GO TO 200                                                         00325000
    9 ITALT = ITALT + 1                                                 00326000
      IF (IOPTH.EQ.0.OR.SGTIND(I+1).NE.4.) GO TO 102                    00327000
      IF (HFIN(ITALT).LT.1000.) GO TO 102                               00328000
      INOPTH = 1                                                        00329000
      INDEX3 = ICRUS + 1                                                00330000
 102  CALL TRALT(ITALT)                                                 00331000
      INOPTH = 0                                                        00332000
      GO TO 200                                                         00333000
   10 IPLOT = IPLOT + 1                                                 00334000
      CALL PLOTXY(IPLOT)                                                00335000
   11 IPRFRP = IPRFRP + 1                                               00336000
      CALL PRFRP(IPRFRP)                                                00337000
      INDSRV = INDSGT                                                   00338000
  200 IF(NEXT.NE.0)RETURN                                               00339000
      I = I + 1                                                         00340000
      INDSGT = SGTIND(I)                                                00341000
      IF ((INDSGT.NE.0).AND.(INDSGT.NE.100)) GO TO 100                  00342000
      IF(IFUEL.EQ.0) GO TO 22                                           00343000
      WFS   =WF                                                         00344000
      DO 21 L = 1, IFUEL                                                00345000
   21 WFS   =AMAX1(STORWF(L),WFS)                                       00346000
      IF(WFS.EQ.WF) GO TO 23                                            00347000
      DO 77 L=1,IFUEL                                                   00348000
   77 IF(WFS.EQ.STORWF(L)) WFL= STRWFL(L)                               00349000
      GO TO 23                                                          00350000
   22 WFS = WF                                                          00351000
   23 IF(INDSRV.EQ.11) GO TO 26                                         00352000
      WFR = CK1 * WFS + DELWF                                           00353000
      TOTFU = CK1 * WFS + DELWF                                         00354000
      RESFU =(CK1-1.)*WFS+DELWF+WFL                                     00355000
      SIMFU = TOTFU - RESFU                                             00356000
   26 SAVE(25) = INDSGT                                                 00357000
      IF(INDSGT.EQ.0) SAVE(25)= SGTIND(I+1)                             00358000
      IF(INDSRV.EQ.11) GO TO 27                                         00359000
      IF(OPTIND.EQ.2.) WRITE(6,9002) SIMFU, RESFU, TOTFU                00360000
 9002 FORMAT(//15X,23HMISSION FUEL REQUIRED =,F9.2                      00361000
     1        /15X,23HRESERVE FUEL REQUIRED =,F9.2                      00362000
     2        /15X,23HTOTAL   FUEL REQUIRED =,F9.2)                     00363000
   27 INDSRV = 0                                                        00364000
      IF (.NOT.(((OPTIND.EQ.2.).AND.(SAVE(25).EQ.100.)))) RETURN        00365000
      WRITE(6,5224)                                                     00366000
 5224 FORMAT(//2X       100(1H*)//)                                     00367000
      WRITE(6,5225)                                                     00368000
 5225 FORMAT(/2X 25HEND  OF  SUCCESSFUL  CASE/)                         00369000
      WRITE(6,5224)                                                     00370000
      RETURN                                                            00371000
      END                                                               00372000
      SUBROUTINE PRFRP(IPRFRP)                                          00001000
C**** MEMBER NAME = B93TPRFP                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11),STRWFL(11)                                   00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC 2201 TO LOC 2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON/HAL/INDSGT,KE                                              00252000
C **  HAL IS PASSED AMOUNG CRUS1,3, PRFRP, PRFRM, LOITR                 00253000
      COMMON/KAGS/ATGP(10),TINGP(10)                                    00254000
C **  KAGS IS PASSED FROM MAIN TO BE USED IN CALL ATMOS STATEMENT       00255000
      DIMENSION EO(7)                                                   00256000
      DATA EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                    002570
      DATA EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /      00258
      DATA DASH /4H----/                                                00259000
      PEHF = 0.0                                                        00260000
      LETF = 0.0                                                        00261000
      PETF = 0.0                                                        00262000
      EM = 0.0                                                          00263000
      CT = 0.0                                                          00264000
      CP = 0.0                                                          00265000
      ADVJ = 0.0                                                        00266000
      ETAPP = DASH                                                      00267000
      BHPR = 0.0                                                        00268000
      THRT = 0.0                                                        00269000
4971  FORMAT(//13X,*TOTAL*,17X,*THRUST*,11X,*FUEL FLOW   TURB.*,4X      00270000
     1,*PETF*,22X,*SPEC.*,/5X,*TAS*,5X,*FUEL FLOW*,15X                  00271000
     2,*TO*,6X,*EAS*,4X,*PRIM. ENG*,3X,*TEMP.*,5X,*OR*,5X,*MACH*,5X     00272000
     3,*MACH*,5X,*RANGE*,6X,*BHP*,8X,*FM*,/5X,*(KTS)*,3X,*(LBS/HR)*,14X 00273000
     4,*WEIGHT*,4X,*(KTS)*,3X,*(LBS/HR)*,4X,*(R)*,5X,*PEHF*             00274000
     5,13X,*DIV*,6X,*(NMPP)*,///5X,*CL*,8X,*CD*,8X,*L/D*,7X,*LIFT*,6X   00275000
     6,*DRAG*,3X,*FUEL FLOW*,5X,*J*,6X,*LETF*,5X,*CP*,7X,*CT*,6X,       00276000
     7*VTIP*,7X,*NET*,7X,*ETAP*,/35X,*(LBS)*,5X,*(LBS)*,2X              00277000
     8,*LIFT ENG.*,38X,*(FPS)*,5X,*THRUST*,5X,*PROP*,/53X,*(LBS/HR)*,//)00278000
4972  FORMAT(5X,F5.1,3X,F7.1,16X,F5.3,5X,F5.1,3X,F7.1,3X,F6.1           00279000
     1,3X,F5.3,3X,F5.3,4X,F5.3,4X,F7.6,4X,F6.0,4X,F5.3)                 00280000
4973  FORMAT(5X,F6.3,3X,F6.4,4X,F6.3,5X,F7.0,3X,F6.0,3X,F7.1,2X,F6.3    00281000
     1,4X,F5.3,3X,F6.4,3X,F6.4,3X,F5.1,4X,F8.0,4X,F5.3/)                00282000
4974  FORMAT(6X,A4,5X,A4,6X,A4,6X,F7.0,4X,A4,4X,F7.1,3X,F6.3,3X,F5.3,   00283000
     13X,F6.4,3X,F6.4,3X,F5.1,4X,F8.0,4X,A4/)                           00284000
4975  FORMAT(5X,F5.1,3X,F7.1,17X,A4,4X,F5.1,4X,F7.1,3X,F6.1,3X,F5.3,    00285000
     13X,F5.3,4X,F5.3,4X,F7.6,4X,F6.0,4X,A4)                            00286000
C **  4972 IS TOP LINE FOR HOVER; 4973 IS BOTTOM LINE FOR CRUISE        00287000
C     4974 IS BOTTOM LINE FOR HOVER; 4975 IS TOP LINE FOR CRUISE        00288000
      PI = 3.14159                                                      00289000
      GWND = GWIND(IPRFRP)                                              00290000
      GPP = GWP(IPRFRP)                                                 00291000
      CLP = CLWP(IPRFRP)                                                00292000
      DELFP = DELFEP(IPRFRP)                                            00293000
      ALT = AHOP(IPRFRP)                                                00294000
      TOVW = TOWP(IPRFRP)                                               00295000
      AN2MAX = AN2M7(IPRFRP)                                            00296000
      AN3MAX = AN2M8(IPRFRP)                                            00297000
      DLVP = DELVP(IPRFRP)                                              00298000
      VMXP = VMAXP(IPRFRP)                                              00299000
      W = GPP                                                           00300000
      IF(GWND.EQ.2.0) GO TO 1                                           00301000
      W = WG + GPP                                                      00302000
    1 A2STR = A2MAX*AN2MAX                                              00303000
      P = A2STR*VT                                                      00304000
      LC1 = 0                                                           00305000
      V = 0.0                                                           00306000
      VH = 0.0                                                          00307000
      VR = 0.0                                                          00308000
      EAS = 0.0                                                         00309000
      EN = 0.0                                                          00310000
      CALL ATMOS(ALT, ATGP(IPRFRP), TINGP(IPRFRP))                      00311000
      FTINGP = 518.69*THETA - 459.69                                    00312000
      EM = V/SA                                                         00313000
      DELRTH = DELTA*STHETA                                             00314000
      WDEL = W/DELTA                                                    00315000
      WRITE(6,1000) W, WDEL, ALT, DELRTH, FTINGP, DELTA, THETA          00316000
 1000 FORMAT(/16X,*GROSS WEIGHT =*,F8.0,*  LB*,13X,*W/DELTA =*,F7.0,    00317000
     1*  LB*/16X,*ALTITUDE     =*,F9.1,*  FT*,12X,*DELTRTH = *,F5.3/16X 00318000
     2,*TEMPERATURE  =*,F9.3,* DEG.,F.*,8X,*DELTA   = *,F5.3/55X,       00319000
     3*THETA   = *,F5.3)                                                00320000
      WRITE(6,4971)                                                     00321000
      IF(ETAIND.EQ.0.0) ETAP = ETAP2                                    00322000
      IF(DNITFL.EQ.1.0) GO TO 19                                        00323000
      IF(INDENG.NE.0) GO TO 14                                          00324000
C *** IF ENGIND = 2. PROGRAM SETS ETAIND = 0; ETAP2 IS INPUT            00325000
      CALL POWAVL(TMAX,0.0)                                             00326000
      BLP = SHPA                                                        00327000
      TKE = TPEA                                                        00328000
      BHPSUP = BLP*BHPP*DELTA*STHETA                                    00329000
      KE = NPLIM + 1                                                    00330000
   13 IF(ETAIND.NE.0.0) GO TO 29                                        00331000
      BHPPS = (TOWP(IPRFRP)**1.5)*WG*SQRT(WGA)                          00332000
     1/(550*ETAT*ETAP2*S2RHO) + DSHPAC                                  00333000
      BHPR = BHPPS                                                      00334000
      IF(BHPSUP.GE.BHPPS) GO TO 11                                      00335000
C *** BHPSUP = POWER AVAILABLE  AND  BHPPS = POWER REQUIRED             00336000
      GO TO 28                                                          00337000
   29 TPROP = TOWP(IPRFRP)*W                                            00338000
      IF(ENGIND.EQ.2.0) BHPP = TP/BETA                                  00339000
      CALL POWER(TPROP,1.0,ETAP)                                        00340000
C *** IF ETAIND.NE.0.0 ETAP CALCULATED IN POWER SUBROUTINE              00341000
      BHPR = BHPP*SHPR*DELTA*STHETA                                     00342000
C **  ACCESSORY POWER IS INCLUDED IN SHPR FROM THE POWER SUBROUTINE     00343000
      IF(BHPSUP.GE.BHPR) GO TO 11                                       00344000
C *** BHPSUP = POWER AVAILABLE  AND  BHPR = POWER REQUIRED              00345000
   28 WRITE(6,232)                                                      00346000
  232 FORMAT(7X,*+++CAUTION+++ PEHF IS GREATER THAN 1.000*)             00347000
   11 BHPPY = BHPSUP                                                    00348000
      IF(ENGIND.EQ.0.0) GO TO 10                                        00349000
      TPY = BETA*BHPPY                                                  00350000
C *** BHPPY = POWER AVAILABLE; BHPPS = POWER REQUIRED                   00351000
      BHPSUP = BHPPS                                                    00352000
      IF(ETAIND.EQ.0.0) GO TO 31                                        00353000
      TSUBP = BETA*BHPR                                                 00354000
      GO TO 9916                                                        00355000
   31 TSUBP = BETA*BHPPS                                                00356000
 9916 YALE22 = TSUBP/(DELTA*TP)                                         00357000
C *** TSUBP = PRIMARY ENGINE THRUST                                     00358000
      TLP = YALE22                                                      00359000
      SHPR = YALE22                                                     00360000
      CALL THRREQ(0.0)                                                  00361000
      FPGP = WSHPR*DELTA*STHETA*TP                                      00362000
      TKE = TPEA                                                        00363000
      KE = 6                                                            00364000
      FLGP = 0.0                                                        00365000
      GO TO 202                                                         00366000
   10 IF(ETAIND.EQ.0.0) GO TO 30                                        00367000
      BHPSUP = BHPR                                                     00368000
      GO TO 32                                                          00369000
   30 BHPSUP = BHPPS                                                    00370000
   32 YALE22 = BHPSUP/(BHPP*DELTA*STHETA)                               00371000
      BLP = YALE22                                                      00372000
      SHPR = YALE22                                                     00373000
      CALL POWREQ(0.0)                                                  00374000
      FPGP = WSHPR*DELTA*STHETA*BHPP                                    00375000
      TKE = TPEA                                                        00376000
      KE = 6                                                            00377000
      LETF = 0.0                                                        00378000
      FLGP = 0.0                                                        00379000
      GO TO 202                                                         00380000
   14 CALL THRAVL(TMAX,0.0)                                             00381000
      TLP = SHPA                                                        00382000
      TKE = TPEA                                                        00383000
      KE = NPLIM + 1                                                    00384000
      TSUBP = TLP*DELTA*TP                                              00385000
      IF(ENGIND.EQ.1.0) GO TO 9                                         00386000
      BHPSUP = TSUBP/BETA                                               00387000
      GO TO 13                                                          00388000
    9 IF(TSUBP.LT.(TOWP(IPRFRP)*W/ETAP2)) GO TO 16                      00389000
  161 TPY = TSUBP                                                       00390000
      TSUBP = TOWP(IPRFRP)*W/ETAP2                                      00391000
      THRT = TSUBP                                                      00392000
      GO TO 9916                                                        00393000
   19 CALL LIFAVL(TLMAX)                                                00394000
      TLL = FLIF                                                        00395000
      TSUBL = TLL*DELTA*TL                                              00396000
      IF(TSUBL.LT.(TOWP(IPRFRP)*W/ETAL)) GO TO 17                       00397000
      LETF = TOWP(IPRFRP)*W/(TSUBL*ETAL)                                00398000
      TSUBP = 0.0                                                       00399000
      YALE22 = TSUBL/(DELTA*TL)                                         00400000
      TLL = YALE22                                                      00401000
      FPGP = 0.0                                                        00402000
      TKE = TFI                                                         00403000
      KE = 1                                                            00404000
      FREQ = YALE22                                                     00405000
      CALL LIFREQ                                                       00406000
      WDOTFL = FWR                                                      00407000
      FLGP = WDOTFL*DELTA*STHETA*TL                                     00408000
      THRT = TSUBL                                                      00409000
      GO TO 202                                                         00410000
   17 LETF = 1.0                                                        00411000
      CALL THRAVL(TMAX,0.0)                                             00412000
      TLP = SHPA                                                        00413000
      TKE = TPEA                                                        00414000
      KE = NPLIM + 1                                                    00415000
      TSUBP = TLP*DELTA*TP                                              00416000
      YALE22 = (TOWP(IPRFRP)*W - TSUBL*ETAL)/ETAP2                      00417000
      IF(TSUBP.LT.YALE22) GO TO 16                                      00418000
  162 TPY = TSUBP                                                       00419000
      TSUBP = YALE22                                                    00420000
      TLP = TSUBP/(DELTA*TP)                                            00421000
      SHPR = TLP                                                        00422000
      CALL THRREQ(0.0)                                                  00423000
      TKE = TPEA                                                        00424000
      KE = 6                                                            00425000
      FPGP = WSHPR*DELTL*STHETA*TP                                      00426000
      FREQ = TLL                                                        00427000
      CALL LIFREQ                                                       00428000
      WDOTFL = FWR                                                      00429000
      FLGP = WDOTFL*TL*DELTA*STHETA                                     00430000
      THRT = TSUBP + TSUBL                                              00431000
      GO TO 202                                                         00432000
  16  WRITE(6,233)                                                      00433000
  233 FORMAT(7X,*+++CAUTION+++ PETF IS GREATER THAN 1.000*)             00434000
      IF(DNITFL.EQ.1.0) GO TO 162                                       00435000
      GO TO 161                                                         00436000
  202 FTOT = FPGP + FLGP                                                00437000
      IF(ENGIND.EQ.0.0) GO TO 253                                       00438000
      IF(TSUBP.EQ.0.0) PEHF = 0.0                                       00439000
      IF(TSUBP.EQ.0.0.AND.ENGIND.EQ.1.0) GO TO 3815                     00440000
      PETF = TSUBP/TPY                                                  00441000
      PEHF = PETF                                                       00442000
      IF(ENGIND.EQ.2.0) GO TO 253                                       00443000
      GO TO 2044                                                        00444000
  253 IF(ENGIND.EQ.0.0) PEHF = BHPSUP/BHPPY                             00445000
      IF(ENGIND.EQ.2.0.AND.IN2.EQ.2) A2STR = A2MAX*AN2MAX               00446000
      P = A2STR*VT                                                      00447000
 2044 CT = TOWP(IPRFRP)*W*PI**3*WGA/(0.009507*SIGMA*WG*P**2)            00448000
      CP = 0.798*CT**1.5/ETAP                                           00449000
      GO TO 3816                                                        00450000
 3815 CP = 10000000.                                                    00451000
      CT = 10000000.                                                    00452000
      ADVJ = 10000000.                                                  00453000
      P = 0.0                                                           00454000
 3816 FM = ETAP                                                         00455000
      ALTD = DASH                                                       00456000
      CL = 0.0                                                          00457000
      CALL DRAG                                                         00458000
      EMDD = EMD                                                        00459000
      CL = DASH                                                         00460000
      CD = DASH                                                         00461000
      ALIFT = W                                                         00462000
      ADRAG = DASH                                                      00463000
      ETAPP = DASH                                                      00464000
      WRITE(6,4972) V,FTOT,TOVW,EAS,FPGP,TKE,PEHF,EM,EMDD,EN,BHPR,FM    00465000
      WRITE(6,4974) CL,CD,ALTD,ALIFT,ADRAG,FLGP,ADVJ,LETF,CP,CT,P,THRT, 00466000
     1ETAPP                                                             00467000
C **  THE FORTRAN CODE BELOW IS THE GENERAL PERF. FOR CRUISE ONLY       00468000
C     NOTE THAT THE CRUISE CODING IS TOTALLY SEPARATE FROM T/O CODING   00469000
C *** FIND HIGHEST CL VALUE, CLMAX, IN TABLE; TCLN=NO.VALUES IN TABLE   00470000
      P = A2MAX * AN3MAX * VT                                           00471000
      A2STR = A2MAX * AN3MAX                                            00472000
      CLMAX = 0.0                                                       00473000
      NTCLN = TCLN                                                      00474000
      DO 222 I = 1,NTCLN                                                00475000
      IF(TBCL1(I).GT.CLMAX) CLMAX = TBCL1(I)                            00476000
 222  CONTINUE                                                          00477000
      VH = SQRT(W/(RHO*1.42636*CLMAX*SW))                               00478000
      VINC = VH + 0.01                                                  00479000
      V = VINC                                                          00480000
C *** VR IS VH ROUNDED UP TO NEXT HIGHEST TEN VALUE; VH IS VELOCITY     00481000
C     AT CLMAX                                                          00482000
      VR = 10.0*(AINT(VH/10.0) + 1.0)                                   00483000
    4 FLGP = 0.0                                                        00484000
      IF(ENGIND.EQ.0.0) ADVJ = 1.689 * V * PI/P                         00485000
      IF(ENGIND.NE.0.0) ETAP = 1.0                                      00486000
      AN2MAX = AN2M8(IPRFRP)                                            00487000
      ITAB = 0                                                          00488000
      Q = 1.42636*RHO*V**2                                              00489000
      EM = V/SA                                                         00490000
      CL = W/(SW*Q)                                                     00491000
      CALL DRAG                                                         00492000
      IF(NEXT.NE.0) RETURN                                              00493000
      EMDD = EMD                                                        00494000
      CD = CD+DELFEP(IPRFRP)                                            00495000
      ADRAG = CD * Q * SW                                               00496000
      ALTD = W/ADRAG                                                    00497000
      IF(ENGIND.NE.0.) GO TO 2                                          00498000
      IF(ETAIND.NE.0.0) GO TO 26                                        00499000
      ETAP4 = XLINT(TBEM5,TB8AP4,EM,NETAP4,M)                           00500000
      ETAP = ETAP4                                                      00501000
      IF(M.NE.0) WRITE(6,1001)                                          00502000
 1001 FORMAT(22X,*THIS ERROR IS IN THE M-ETAP4 TABLE-SUBROUTINE PRFRP*) 00503000
      BHPR = CD*SW*Q*V/(325.8*ETAP4*ETAT) + DSHPAC                      00504000
      GO TO 2670                                                        00505000
26    TPROP = CD*SW*Q                                                   00506000
      YLS2 = 1.0                                                        00507000
      CALL POWER(TPROP,YLS2,ETAP)                                       00508000
      BHPR = SHPR*BHPP*DELTA*STHETA                                     00509000
C **  ACCESSORY POWER IS INCLUDED IN THE POWER SUBROUTINE               00510000
C *** BELOW IS CODE YIELDING AVAILABLE POWER; THIS OPTION COMPARES P0WER00511000
C     REQUIRED TO POWER AVAILABLE;  FOR PEHF AND FUTURE MODIFICATIONS   00512000
 2670 CALL POWAVL(TMAX,EM)                                              00513000
      TKE = TPEA                                                        00514000
      KE = NPLIM+1                                                      00515000
      BLP = SHPA                                                        00516000
      BHPSUP = BLP*DELTA*STHETA*BHPP                                    00517000
      BHPA = BHPSUP                                                     00518000
      IF(BHPR.GT.BHPA) WRITE(6,232)                                     00519000
      BHPA = BHPR                                                       00520000
      BHPSUP = BHPA                                                     00521000
      BLP = BHPSUP/(BHPP*DELTA*STHETA)                                  00522000
      SHPR = BLP                                                        00523000
      CALL POWREQ(EM)                                                   00524000
      WSHPA = WSHPR                                                     00525000
      TKE = TPEA                                                        00526000
      KE = 6                                                            00527000
      FPGP = WSHPA*DELTA*STHETA*BHPP                                    00528000
      FTOT = FPGP + FLGP                                                00529000
      GO TO 99                                                          00530000
2     TR = CD*Q*SW                                                      00531000
C *** THE FOLLOWING CODE CALCULATES THE THRUST AVAILABLE                00532000
      CALL THRAVL(TMAX,EM)                                              00533000
      TKE = TPEA                                                        00534000
      KE = NPLIM + 1                                                    00535000
      TLP = SHPA                                                        00536000
      TSUBP = TLP*TP*DELTA                                              00537000
      TA = TSUBP                                                        00538000
      IF(TR.GT.TA) WRITE(6,233)                                         00539000
      TA = TR                                                           00540000
      TSUBP = TA                                                        00541000
      TLP = TSUBP/(TP*DELTA)                                            00542000
      SHPR = TLP                                                        00543000
      CALL THRREQ(EM)                                                   00544000
      WSHPA = WSHPR                                                     00545000
      TKE = TPEA                                                        00546000
      KE = 6                                                            00547000
      FPGP = WSHPA*DELTA*STHETA*TP                                      00548000
      FTOT = FPGP + FLGP                                                00549000
99    EN = V/FTOT                                                       00550000
      EAS = V*SQRT(SIGMA)                                               00551000
      THRT = TR                                                         00552000
      IF(ENGIND.EQ.0.0) GO TO 4256                                      00553000
      VQ = TSUBP/(DELTA*TP)                                             00554000
      CALL THRAVL(TMAX,EM)                                              00555000
      GO TO 4257                                                        00556000
4256  VQ = BHPSUP/(DELTA*STHETA*BHPP)                                   00557000
      CALL POWAVL(TMAX,EM)                                              00558000
4257  ANICE = SHPA                                                      00559000
      PETF = VQ/ANICE                                                   00560000
      PEHF= PETF                                                        00561000
      ETAPP = ETAP                                                      00562000
      FM = DASH                                                         00563000
      TOVW = DASH                                                       00564000
      LETF = 0.0                                                        00565000
      IF(ENGIND.EQ.0.0) GO TO 1217                                      00566000
      BHPR = 0.0                                                        00567000
      CT = 10000000.                                                    00568000
      CP = 10000000.                                                    00569000
      ADVJ = 10000000.                                                  00570000
      P = 0.0                                                           00571000
      GO TO 723                                                         00572000
 1217 THRT = 0.0                                                        00573000
      CP = 550. * BHPR * PI**4 * WGA /(4.0 * RHO * P**3 * WG)           00574000
      CT = ETAPP * CP/ADVJ                                              00575000
  723 WRITE(6,4975) V,FTOT,TOVW,EAS,FPGP,TKE,PEHF,EM,EMDD,EN,BHPR,FM    00576000
      WRITE(6,4973) CL,CD,ALTD,ALIFT,ADRAG,FLGP,ADVJ,LETF,CP,CT,P,THRT, 00577000
     1ETAPP                                                             00578000
      IF(V.NE.VINC) GO TO 552                                           00579000
      V = VR                                                            00580000
      GO TO 4                                                           00581000
  552 DVP = DLVP                                                        00582000
      IF(V.LE.(VMXP-DVP)) GO TO 369                                     00583000
      IF(V.EQ.VMXP) GO TO 553                                           00584000
      DVP = VMXP - V                                                    00585000
  369 V = V + DVP                                                       00586000
      GO TO 4                                                           00587000
  553 CONTINUE                                                          00588000
C *** END OF POWER(SPEED) CALC;BEGIN SPEED(TEMP) AND TORQUE LIMIT CALC  00589000
      LQ5 = 0                                                           00590000
      LQ6 = 0                                                           00591000
      INDSGT = 11                                                       00592000
      ICRUS = IPRFRP                                                    00593000
      VIN(ICRUS) = 0.0                                                  00594000
      ATMIND(ICRUS + 30) = ATGP(IPRFRP)                                 00595000
      DELR(ICRUS) = 2.0                                                 00596000
      TIN(ICRUS + 30) = TINGP(IPRFRP)                                   00597000
      RMAX(ICRUS) = 2.0                                                 00598000
      ENPSD(ICRUS) = 0.0                                                00599000
      AN2M4(ICRUS) = AN2M8(IPRFRP)                                      00600000
      DLCDCR(ICRUS) = DELFEP(IPRFRP)                                    00601000
      ILOITR = IPRFRP                                                   00602000
      DNIRTL(ILOITR) = 1.0                                              00603000
      DELST(ILOITR) = 0.01                                              00604000
      ATMIND(ILOITR + 50) = ATGP(IPRFRP)                                00605000
      STL(ILOITR) = 0.01                                                00606000
      TIN(ILOITR + 50) = TINGP(IPRFRP)                                  00607000
      ENPSDL(ILOITR) = 0.0                                              00608000
      AN2M6(ILOITR) = AN2M8(IPRFRP)                                     00609000
      DLOITR(ILOITR) = DELFEP(IPRFRP)                                   00610000
      RSW(ILOITR) = 1.0                                                 00611000
      POWCRI(ICRUS) = 2.0                                               00612000
      CALL CRUS1(ICRUS)                                                 00613000
      IF(NPLIM.EQ.4) VQLIM = V                                          00614000
      IF(NPLIM.EQ.4) LQ6 = 1                                            00615000
C **  NPLIM IS AN ENGINE OPERATING CODE WHICH IS PASSED FROM POWAVL     00616000
      IF(NEXT.EQ.1) LQ1 = 1                                             00617000
      IF(NPLIM.NE.4) GO TO 101                                          00618000
C **  NOTE; A TORQUE LIMIT CONDITION EXISTS EITHER WHEN OPERATING NII   00619000
C     IS GREATER THAN S.L.STD NIIMAX OR WHEN ENGINE CODE LIMITED        00620000
      PQ = A2STR * VT                                                   00621000
      A2Q = A2STR                                                       00622000
  101 VNRP = V                                                          00623000
      SRNRP = EN                                                        00624000
      KF = KE                                                           00625000
      POWCRI(ICRUS) = 1.0                                               00626000
      CALL CRUS1(ICRUS)                                                 00627000
      IF(NPLIM.EQ.4) VQLIM = V                                          00628000
      IF(NPLIM.EQ.4) LQ6 = 1                                            00629000
      IF(NEXT.EQ.1) LQ1 = 2                                             00630000
      IF(NPLIM.NE.4) GO TO 102                                          00631000
      PQ = A2STR * VT                                                   00632000
      A2Q = A2STR                                                       00633000
  102 VMIL = V                                                          00634000
      SRMIL = EN                                                        00635000
      KG = KE                                                           00636000
      POWCRI(ICRUS) = 0.0                                               00637000
      CALL CRUS1(ICRUS)                                                 00638000
      IF(NPLIM.EQ.4)VQLIM = V                                           00639000
      IF(NPLIM.EQ.4) LQ6 = 1                                            00640000
      IF(NEXT.EQ.1) LQ1 = 3                                             00641000
      IF(NPLIM.NE.4) GO TO 103                                          00642000
      PQ = A2STR * VT                                                   00643000
      A2Q = A2STR                                                       00644000
  103 VMXGP = V                                                         00645000
      SRMAX = EN                                                        00646000
      KH = KE                                                           00647000
      CRSIND(ICRUS) = 3.0                                               00648000
      CALL CRUS3(ICRUS)                                                 00649000
      VBR = V                                                           00650000
      SRBR = EN                                                         00651000
      KP = KE                                                           00652000
      CRSIND(ICRUS) = 4.0                                               00653000
      CALL CRUS3(ICRUS)                                                 00654000
      V99BR = V                                                         00655000
      SR99BR = EN                                                       00656000
      KS = KE                                                           00657000
      CALL LOITR(ILOITR)                                                00658000
      VBE = V                                                           00659000
      FFBE = F1                                                         00660000
      KT = KE                                                           00661000
      IF(QIND.GT.0.0) GO TO 24                                          00662000
      WRITE(6,1007)                                                     00663000
      GO TO 2806                                                        00664000
   24 IF(LQ6.NE.1) GO TO 45                                             00665000
      P = PQ                                                            00666000
      A2STR = A2Q                                                       00667000
      RPM = 60. * P/(PI*D)                                              00668000
      BHPQ = QMAX * BHPP * AN2TO * AN3MAX * A2MAX/ANXMAX                00669000
      XQLM = 275.*BHPQ*D/P                                              00670000
      WRITE(6,1008) VQLIM, P, RPM, BHPQ, XQLM                           00671000
      GO TO 2806                                                        00672000
   45 WRITE(6,1026)                                                     00673000
 2806 IF(LQ1.EQ.1) GO TO 6630                                           00674000
      WRITE(6,1011) VMXGP, SRMAX, EO(KH)                                00675000
 2807 IF(LQ1.EQ.2) GO TO 6631                                           00676000
      WRITE(6,1013) VMIL, SRMIL, EO(KG)                                 00677000
 2808 IF(LQ1.EQ.3) GO TO 6632                                           00678000
      WRITE(6,1015) VNRP, SRNRP, EO(KF)                                 00679000
 2809 WRITE(6,1017)VBR,SRBR,EO(KP),V99BR,SR99BR,EO(KS),VBE,FFBE,EO(KT)  00680000
 1007 FORMAT(//16X,*MAIN TRANSMISSION TORQUE LIMIT NOT APPLIED*//)      00681000
 1008 FORMAT(//16X,*MAIN TRANSMISSION TORQUE LIMIT (ALL ENGINES OPERATIN00682000
     1G) OCCURS AT*/48X,*V*,15X,*= *,F6.1,1X,*KTAS*/48X,*MAIN ROTOR VTIP00683000
     2 = *,F6.1,1X,*FT/SEC*/48X,*MAIN ROTOR RPM  = *,F6.1,/48X,*POWER*,100684000
     31X,*= *,F6.0,1X,*SHP*/48X,*TORQUE*,10X,*= *,F8.0,1X,*FT-LB*//)    00685000
 1011 FORMAT(//25X,*V(MAX PWR)*,8X,*= *,F6.1,1X,*KTAS*,2X,*SPEC.RANGE = 00686000
     1*,F6.4,1X,*NM/LB*,2X,A4)                                          00687000
 1012 FORMAT(//25X,*INSUFFICIENT POWER AVAILABLE FOR CRUISE AT MAXIMUM E00688000
     1NGINE RATING*)                                                    00689000
 1013 FORMAT(25X,*V(MIL PWR)*,8X,*= *,F6.1,1X,*KTAS*,2X,*SPEC.RANGE = *,00690000
     1F6.4,1X,*NM/LB*,2X,A4)                                            00691000
 1014 FORMAT(25X,*INSUFFICIENT POWER AVAILABLE FOR CRUISE AT MILITARY EN00692000
     1GINE RATING*)                                                     00693000
 1015 FORMAT(25X,*V(NRP)*,12X,*= *,F6.1,1X,*KTAS*,2X,*SPEC.RANGE = *,F6.00694000
     14,1X,*NM/LB*,2X,A4)                                               00695000
 1016 FORMAT(25X,*INSUFFICIENT POWER AVAILABLE FOR CRUISE AT NORMAL ENGI00696000
     1NE RATING*)                                                       00697000
 1017 FORMAT(25X,*V(BEST RANGE)*,5X,*= *,F6.1,1X,*KTAS*,2X,*SPEC.RANGE =00698000
     1 *,F6.4,1X,*NM/LB*,2X,A4,/25X,*V(99 PERCENT BR)*,2X,*= *,F6.1,1X,*00699000
     2KTAS*,2X,*SPEC.RANGE = *,F6.4,1X,*NM/LB*,2X,A4,/25X,*V(BEST ENDURA00700000
     3NCE) = *,F6.1,1X,*KTAS*,2X,*FUEL FLOW  = *,F6.0,1X,*LB/HR*,2X,A4,/00701000
     4/)                                                                00702000
 1026 FORMAT(//16X,*MAIN TRANSMISSION TORQUE LIMIT NOT EXCEEDED AT THESE00703000
     1 FLIGHT CONDITIONS*)                                              00704000
      GO TO 6310                                                        00705000
 6630 WRITE(6,1012)                                                     00706000
      GO TO 2807                                                        00707000
 6631 WRITE(6,1014)                                                     00708000
      GO TO 2808                                                        00709000
 6632 WRITE(6,1016)                                                     00710000
      GO TO 2809                                                        00711000
 6310 RETURN                                                            00712000
      END                                                               00713000
      SUBROUTINE SCRIBE(ITAB,ETAP,YLS2)                                 00001000
C**** MEMBER NAME = B93TSCRI                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10),TKETKE(10),EOEOEO(10),HHH(10),ETAETA(10)    00253000
      COMMON CLCLCL(10),CDCDCD(10),ALDALD(10),ELLELL(10),DEEDEE(10),    00254000
     1 FFF(10),BHPBHP(10),TPTPTP(10),CCPCCP(10),CCTCCT(10),AJAJAJ(10),  00255000
     2 PPP(10)                                                          00256000
      DIMENSION DATA(1)                                                 00257000
      EQUIVALENCE (DATA(1),OPTIND)                                      00258000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00259000
      PI = 3.14159                                                      00260000
      ELL = CL*Q*SW                                                     00261000
      DEE = CD*Q*SW                                                     00262000
      ALDLD = CL/CD                                                     00263000
      IF (ENGIND.NE.0.0) BHPR = 0.0                                     00264000
      IF (ENGIND.NE.0.0) GO TO 241                                      00265000
      TPS = TMAX                                                        00266000
      CALL POWAVL(TPS,EM)                                               00267000
      SHPR = SHPA*PEHF                                                  00268000
      BHPR = SHPR*BHPP*DELTA*STHETA*YLS2                                00269000
C **  PEHF IS DETERMINED FROM THE SUBROUTINE FROM WHICH SCRIBE WAS      00270000
C     CALLED. DSHPAC IS ALREADY INCLUDED IN BHPR (POWER REQ.); THE      00271000
C     ACCESSORY POWER HAS BEEN ADDED EITHER IN POWER OR PERF. SUBROUTINE00272000
      TPROP = 325.6365*ETAP*ETAT*BHPR/V                                 00273000
      CALL POWREQ(EM)                                                   00274000
      P = A2STR*VT                                                      00275000
      PI3 = PI**3                                                       00276000
      PP2 = P**2                                                        00277000
      CCT = TPROP*PI3*WGA/(0.009507*SIGMA*WG*PP2)                       00278000
      CCP = 550.0*PI*PI3*(STHETA**3)*BHPP*SHPR*ETAT*WGA*YLS2/           00279000
     1 (0.009507*WG*PP2*P)                                              00280000
      REALJ = 1.689*PI*V/P                                              00281000
      GO TO 243                                                         00282000
 241  TPS = TMAX                                                        00283000
      CALL THRAVL(TPS,EM)                                               00284000
      TPROP = SHPA*PETF*DELTA*TP                                        00285000
      REALJ = 1000000.                                                  00286000
      CCP = 1000000.                                                    00287000
      CCT = 1000000.                                                    00288000
 243  IF (ITAB.EQ.0) GO TO 242                                          00289000
      ELLELL(ITAB) = ELL                                                00290000
      DEEDEE(ITAB) = DEE                                                00291000
      FFF(ITAB) = F                                                     00292000
      CLCLCL(ITAB) = CL                                                 00293000
      CDCDCD(ITAB) = CD                                                 00294000
      BHPBHP(ITAB) = BHPR                                               00295000
      CCPCCP(ITAB) = CCP                                                00296000
      CCTCCT(ITAB) = CCT                                                00297000
      AJAJAJ(ITAB) = REALJ                                              00298000
      TPTPTP(ITAB) = TPROP                                              00299000
      ALDALD(ITAB) = ALDLD                                              00300000
      PPP(ITAB) = P                                                     00301000
      GO TO 245                                                         00302000
 242  WRITE(6,9003) CL,CD,ALDLD,ELL,DEE,F,BHPR,TPROP,CCP,CCT,REALJ,     00303000
     1 P,ETAP                                                           00304000
 9003 FORMAT( 7XF6.3,5XF6.4,4XF6.3,4XF7.0,2XF7.0,2XF7.0,2XF7.0,         00305000
     16XF7.0,2XF6.4,1XF6.4,1XF6.3,3XF5.1,4X,F5.3/)                      00306000
 245  RETURN                                                            00307000
      END                                                               00308000
      SUBROUTINE SIZTR(IST)                                             00001000
C**** MEMBER NAME = B93TSIZR                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C **          PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      YALE22=1.                                                         00257000
      NOCPP = CPPNO + 0.01                                              00258000
      NOXPJ = XPJNO + 0.01                                              00259000
      NOCTSG = CTSGNO + 0.01                                            00260000
      NOMTP = TPMNO + 0.01                                              00261000
      PI = 3.1415932                                                    00262000
      INDATM = YALE22                                                   00263000
      AN2MAX  =  AN2TO                                                  00264000
      IST=IST+1                                                         00265000
      IF(IST.NE.1) GO TO 3                                              00266000
      IF (FDMIND-1.0) 3,21,22                                           00267000
 21   DBAR = (HF + SWF)/2.                                              00268000
      ELP = DBAR*ELPD                                                   00269000
      ELT = DBAR*ELTD                                                   00270000
      ELF    = ELP + ELC + ELT                                          00271000
      SF     = DBAR * (2.5*ELP + 3.14*ELC + 2.1*ELT)                    00272000
      GO TO 3                                                           00273000
 22   AGALLY = AGLLEY                                                   00274000
      ACL = (15.0*ANPX1 + 10.0*ANPXT)/144.                              00275000
      WOV2T = 0.5*(ANABT*WSEATT + ANISLT*WAISLT) - 11.0                 00276000
      WOV2 = 0.5*(ANAB1*WSEAT1 + ANISL1*WAISL1) - 11.0                  00277000
      PREC1 = 0                                                         00278000
      IF (WOV2T.GT.WOV2) PREC1 = 1                                      00279000
      IF (WOV2T.GT.WOV2) WOV2 = WOV2T                                   00280000
      IF (WOV2.GE.70.) RCRC = 10.0 + 1.011*WOV2                         00281000
      IF (WOV2.LT.70.) RCRC = 27.7 + WOV2*(0.5 + 0.00369*WOV2)          00282000
      RBRB = RCRC/0.94                                                  00283000
      DBDB = 2.0*RBRB                                                   00284000
      DCDC = 2.0*RCRC                                                   00285000
      IF (LAVIND.EQ.0)  NLAVS = (ANPX1 + ANPXT -20.)/40. + 1.0          00286000
      IF (LAVIND.EQ.1) NLAVS = ANLAVS + 0.01                            00287000
      ALAVS =16.0*NLAVS                                                 00288000
      IF (LAVIND.EQ.1) ALAVS = 16.0*ANLAVS                              00289000
      IF (NGLIND.EQ.0) AGALLY = 0.27*ANPXT + 0.65*ANPX1                 00290000
      AUTILS = ACL + ALAVS + AGALLY                                     00291000
      ELT = ELTD*RBRB/6.0                                               00292000
      ELP = ELPD*RBRB/6.0                                               00293000
      IF (ANISL1.GE.1.0) USAREA= 0.2*(ELP*(DCDC-ANISL1*WAISL1) +        00294000
     1 ELT*(DCDC-ANISLT*WAISLT))/12.0                                   00295000
      IF (ANISL1.EQ.0.0) USAREA = 0.2*(ELP + ELT)*(DCDC - ANISLT*WAISLT)00296000
     1  /12.0                                                           00297000
      IF (ANPXT.EQ.0.0) GO TO 223                                       00298000
      ELTC = ((ANPX1*PSEAT1*WSEAT1 + ANPXT*PSEATT*WSEATT + (AUTILS -    00299000
     1 USAREA)*144.)/((ANPX1*PSEAT1/(ANPXT*PSEATT)*WSEAT1 + WSEATT)*    00300000
     2 ANABT))/12.                                                      00301000
      GO TO 224                                                         00302000
 223  ELTC = 0.0                                                        00303000
 224  IF (ANPX1.EQ.0.0) GO TO 225                                       00304000
      EL1C= ((ANPX1*PSEAT1*WSEAT1 + ANPXT*PSEATT*WSEATT                 00305000
     1 + (AUTILS - USAREA)*144.)/((ANPXT*PSEATT/(ANPX1*PSEAT1)*WSEATT   00306000
     2 + WSEAT1)*ANAB1))/12.                                            00307000
      GO TO 226                                                         00308000
 225  EL1C = 0.0                                                        00309000
 226  ELC = ELTC + EL1C                                                 00310000
      ELF = ELP + ELT + ELC                                             00311000
      SWF = RBRB/6.                                                     00312000
      DBAR = RBRB/6.                                                    00313000
      SF = 2.0*PI*RBRB*ELC/12. + RBRB**2/144.*(10.*ELPD + 8.4*ELTD)     00314000
 3    IF (ENGIND.EQ.1.0) GO TO 34                                       00315000
      IF (PDMIND.EQ.2.0.OR.PDMIND.EQ.4.0) GO TO 31                      00316000
      WGA = 4.0*WG/(3.141593*ENR*(D1**2))                               00317000
      D = D1                                                            00318000
      GO TO 32                                                          00319000
 31   D = SQRT(4.0*WG/(3.141593*ENR*WGA))                               00320000
 32   B = D*(ENR - (0.5*ENR - 1.0)*ZETA1 - ZETA2) + YCL                 00321000
 34   IF (WDMIND.EQ.0.0) GO TO 5                                        00322000
      IF(WDMIND.EQ.2.) GO TO 22067                                      00323000
      CBARW  = D * CBARD                                                00324000
      SW     = B * CBARW                                                00325000
      AR     = B / CBARW                                                00326000
      WGS = WG / SW                                                     00327000
      GO TO 7                                                           00328000
22067 SW=WG / WGS                                                       00329000
      CBARW = SW /B                                                     00330000
      AR    = B / CBARW                                                 00331000
      CBARD = CBARW / D                                                 00332000
      GO TO 7                                                           00333000
    5 SW     = WG / WGS                                                 00334000
      B      = SQRT(AR*SW)                                              00335000
      CBARW  = SW / B                                                   00336000
      IF(ENGIND.EQ.1.) GO TO 7                                          00337000
      CBARD  = CBARW / D                                                00338000
    7 IF(HTIND.EQ.1.) SHT = VBARH * SW * CBARW / ELTH                   00339000
      IF(VTIND.EQ.1.) SVT = VBARV * SW * B / ELTV                       00340000
      CBARHT = SQRT( SHT/ARHT )                                         00341000
      CBARVT = SQRT( SVT/ARVT )                                         00342000
      BHT    = SQRT( SHT*ARHT )                                         00343000
      BVT    = SQRT( SVT*ARVT )                                         00344000
      INDATM = YALE22                                                   00345000
      CALL ATMOS (HES,YALE22,TINY)                                      00346000
      IF (FIXIND.EQ.0.) DEBAR = XI4 * ((BHPP/ENP)**.5)                  00347000
      IF(FIXIND.EQ.0.) GO TO 12                                         00348000
      IF(IST.NE.1) GO TO 12                                             00349000
      IF(DNITFL.EQ.1.) GO TO 10                                         00350000
      IF(ENGIND.NE.0.) GO TO  9                                         00351000
      IF (ETAIND.EQ.2.0) GO TO 81                                       00352000
      IF(ETAIND.NE.0.0) GO TO 91                                        00353000
      S1 = (ENP/(ENP-ENP0))*(SENE**1.5 * WG * WGA**.5 /(550. * DELTA    00354000
     1    * STHETA * ETAT * ETAP2 * S2RHO))                             00355000
      GO TO 93                                                          00356000
 91   REALJ = 0.0                                                       00357000
      TPROP = SENE*WG                                                   00358000
      CCT = TPROP*WGA*PI**3/(0.009507*SIGMA*VT**2*WG)                   00359000
      IF(ETAIND.NE.3.0) GO TO 52                                        00360000
      TOAD=TPROP*WGA/(WG*DELTA)                                         00361000
      HPADTH=XLKUP(REALJ,TOAD,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)00362000
      CCP=HPADTH*5634966.0/(VT/STHETA)**3                               00363000
      GO TO 53                                                          00364000
   52 TIPP = AN2TO * A2MAX * VT/(SA * 1.689)                            00365000
      JCTSG = 0                                                         00366000
      JCTSG = JCTSG + 1                                                 00367000
      IF(JCTSG.EQ.1.AND.PDMIND.EQ.1.0)                                  00368000
     1 CTSIG=9800.*WG/(RHO*(VT*AN2TO*A2MAX)**2*ENR*PI*D**2*AF*BLDN)     00369000
      IF(JCTSG.EQ.1.AND.PDMIND.EQ.2.0)                                  00370000
     1  CTSIG = 2450.*WGA/(RHO*(VT*AN2TO*A2MAX)**2*AF*BLDN)             00371000
      ETAP = XLKUP(CTSIG,TIPP,CTOSIG,NOCTSG,TIPM,NOMTP,FMER,10,6,IX,IY) 00372000
C **  NOTE ETAP LOOK-UP DEPENDS ON CT/SIGMA; THE FIRST ITERATION THROUGH00373000
C     SIZTR DOES NOT DEFINE CT/SIGMA YET IF PDMIND = 1,2. THE ABOVE TWO 00374000
C     EQUATIONS CALCULATES CT/SIGMA WITH RESPECT TO THE INPUTS AVAILABLE00375000
C     AT THIS TIME IN THE PROGRAM LOOP. THE SECOND ITERATION BYPASSES TH00376000
C     E CALCULATIONS                                                    00377000
  53  IF(ETAIND.NE.1.0) ETAP=0.798*CCT**1.5/CCP                         00378000
      IF(ETAIND.EQ.1.0) CCP = 0.798 * CCT**1.5/ETAP                     00379000
      IF (IX.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1003)                      00380000
 1003 FORMAT(9X,*THIS ERROR IS IN THE  M  PART OF THE FAN POWER*,       00381000
     1* COEFFICIENT TABLE - SUBROUTINE SIZTR*)                          00382000
      IF (IY.NE.0.AND.ETAIND.EQ.3.0) WRITE(6,1004)                      00383000
 1004 FORMAT(9X,*THIS ERROR IS IN THE  FN PART OF THE FAN POWER*,       00384000
     1* COEFFICIENT TABLE - SUBROUTINE SIZTR*)                          00385000
      IF(IX.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1005)                       00386000
 1005 FORMAT(9X,*THIS ERROR IS IN THE CT/SIGMA PART OF THE FIGURE*,     00387000
     1* OF MERIT TABLE - SUBROUTINE SIZTR*)                             00388000
      IF(IY.NE.0.AND.ETAIND.EQ.1.0) WRITE(6,1006)                       00389000
 1006 FORMAT(9X,*THIS ERROR IS IN THE MACH NO. PART OF THE FIGURE*,     00390000
     1* OF MERIT TABLE - SUBROUTINE SIZTR*)                             00391000
      YLS2 = (ENP-ENP0)/ENP                                             00392000
      P = VT                                                            00393000
      S1 = 0.009507*CCP*WG*P**3/                                        00394000
     1 (550.*PI**4*WGA*ETAT*STHETA**3*YLS2)                             00395000
 93   DEBAR = XI4*((S1/ENP)**.5)                                        00396000
      CALL  POWAVL(TMAX,0.0)                                            00397000
  111 S2  = SHPA                                                        00398000
      BHPP = S1/S2                                                      00399000
      DEBAR = XI4 * ((BHPP/ENP)**.5)                                    00400000
      IF (IRN.EQ.0) GO TO 12                                            00401000
      CALL  POWAVL(TMAX,0.0)                                            00402000
      AAW  = S2 /SHPA                                                   00403000
      IF (ABS(1.0-AAW).GT.0.01) GO TO 111                               00404000
      GO TO 12                                                          00405000
 81   ETA = 0.85                                                        00406000
      YLS2 = (ENP-ENP0)/ENP                                             00407000
      S3 = (SENE**1.5*WG*WGA**0.5)/(550.0*DELTA*                        00408000
     1 STHETA*ETAT*YLS2*S2RHO)                                          00409000
      TPROP1 = SENE*WG                                                  00410000
      ITER = 0                                                          00411000
      IF (PDMIND.LE.2.0) SIGS = AF*BLDN/4900.                           00412000
      IF (PDMIND.GE.3.0) SIGS = 0.5*SENE*WGA/(RHO*VT**2*CTSIG)          00413000
 82   ITER = ITER + 1                                                   00414000
 86   S1 = S3/ETA                                                       00415000
      DEBAR = XI4*(S1/ENP)**0.5                                         00416000
      CALL POWAVL(TMAX,0.0)                                             00417000
 85   S2 = SHPA                                                         00418000
      BHPP = S1/S2                                                      00419000
      DEBAR = XI4*(BHPP/ENP)**0.5                                       00420000
      CALL THRUST(TPROP,YLS2,ETAP)                                      00421000
      IF (ABS(1.0-TPROP/TPROP1).LE.0.005) GO TO 83                      00422000
      IF (ITER.GT.25) GO TO 84                                          00423000
      ETA = ETAP                                                        00424000
      GO TO 82                                                          00425000
 83   IF (IRN.EQ.0) GO TO 12                                            00426000
      CALL POWAVL(TMAX,0.0)                                             00427000
      AAW = S2/SHPA                                                     00428000
      IF (ABS(1.0-AAW).LE.0.01) GO TO 12                                00429000
      ITER = 0                                                          00430000
      GO TO 82                                                          00431000
    9 CALL  THRAVL(TMAX,0.0)                                            00432000
      TLP = SHPA                                                        00433000
      IF(ENGIND.EQ.2.) GO TO 713                                        00434000
      TP     = (ENP/(ENP-ENP0)) * SENE * WG /(DELTA * ETAP2 * TLP)      00435000
      GO TO 12                                                          00436000
  713 TP     = BETA * ENP/(ENP-ENP0) * SENE**1.5 * WG * WGA**.5         00437000
     1       /(550. * DELTA * ETAT * ETAP2 * S2RHO * TLP)               00438000
      GO TO 12                                                          00439000
   10 CALL  THRAVL(TMAX,0.0)                                            00440000
      TLP = SHPA                                                        00441000
      CALL  LIFAVL(TMAX)                                                00442000
      TLL = FLIF                                                        00443000
      TP     = .25 * WG                                                 00444000
      TL=ENL/(ENL-ENL0)*(WG*SENE-TP*DELTA*TLP*ETAP2)/(DELTA*ETAL*TLL)   00445000
      TL1=(WG*SENE-(ENP-ENP0)/ENP*TP*DELTA*TLP*ETAP2)/(DELTA*ETAL*TLL)  00446000
      IF(TL.LT.TL1) TL=TL1                                              00447000
   12 IF (CKLN.EQ.0.) GO TO 130                                         00448000
      DBARLN = XI1 * SQRT(TL/ENL)                                       00449000
      ELLN   = XI2 + XI3 * SQRT(TL/ENL)                                 00450000
      SLN = 2.*DBARLN*(ENL+EPSLON*ENC)*(ELLN+DBARLN)                    00451000
      GO TO 13                                                          00452000
  130 DBARLN =0.                                                        00453000
      ELLN   = 0.                                                       00454000
      SLN    = 0.                                                       00455000
   13 IF (CKN.EQ.0.)  GO TO 140                                         00456000
      IF(ENGIND.NE.0.) GO TO 14                                         00457000
      DBARN =AZETA1* SQRT(BHPP/ENP)                                     00458000
      ELN   =AZETA2+ AZETA3* SQRT(BHPP/ENP)                             00459000
      GO TO 15                                                          00460000
   14 DBARN =AZETA1* SQRT(TP /ENP)                                      00461000
      ELN   =AZETA2+ AZETA3* SQRT(TP /ENP)                              00462000
   15 SN     =ENP * 3.1415926 * DBARN * ELN                             00463000
      GO TO 2057                                                        00464000
  140 DBARN  = 0.                                                       00465000
      ELN    = 0.                                                       00466000
      SN     = 0.                                                       00467000
 2057 IF (ENGIND.EQ.1.0) GO TO 23                                       00468000
      IF (PDMIND.EQ.3.0.OR.PDMIND.EQ.4.0) GO TO 42                      00469000
      TAF = AF*BLDN                                                     00470000
      SIGRP = TAF/2450.                                                 00471000
      CTSIG = SENE*WGA/(RHO*SIGRP*VT**2)                                00472000
      IF (FIXIND.EQ.0.0) GO TO 46                                       00473000
      IF (ENGIND.EQ.0.0) CTSIG = CTSIG/(A2STR*A2STR)                    00474000
      GO TO 46                                                          00475000
 42   SIGRP = SENE*WGA/(RHO*VT**2*CTSIG)                                00476000
      CALL POWAVL(TMAX,0.0)                                             00477000
      IF (ENGIND.EQ.0.0) SIGRP = SIGRP/(A2STR*A2STR)                    00478000
      TAF = 2450.*SIGRP                                                 00479000
 46   SIGS = 0.5*SIGRP                                                  00480000
      GO TO 23                                                          00481000
 84   WRITE(6,1010)                                                     00482000
 1010 FORMAT(22X,81HERROR, THE NUMBER OF ITERATIONS IN THE SIZTR ROUTINE00483000
     1 EXCEEDED 25, CASE TERMINATED)                                    00484000
      NEXT = 1                                                          00485000
 23   RETURN                                                            00486000
      END                                                               00487000
      FUNCTION TABLE (X,XTAB,YTAB,NXPTS,NORD,IER)                       00001000
C**** MEMBER NAME = B93TABL                                             00002000
C     A00LANG                                                           00003000
C     LAGRANGIAN INTERPOLATION FUNCTION                                 00004000
      DIMENSION XTAB(1), YTAB(1)                                        00005000
      IF (NORD.GE.NXPTS) GO TO 20                                       00006000
      L=MOD(NORD,2)                                                     00007000
      IER = 0                                                           00008000
      IF (XTAB(1).GT.XTAB(2)) GO TO 19                                  00009000
C     TABLE INCREASING                                                  00010000
      NNN = NXPTS - 1                                                   00011000
      DO  18  I = 1,NNN                                                 00012000
          IF ((X.GT.XTAB(I)).AND.( X.LT.XTAB(I+1))) GO TO 17            00013000
          IF ( X.EQ.XTAB(I)) GO TO 16                                   00014000
   18     CONTINUE                                                      00015000
C     ARGUMENT DOES NOT LIE IN TABLE                                    00016000
C     SET ERROR FLAG(IER) TO 3 AND RETURN THE LAST ENTRY IN THE TABLE AS00017000
C     THE RESULT                                                        00018000
   21 CONTINUE                                                          00019000
      IER = 3                                                           00020000
      TABLE = YTAB(NXPTS)                                               00021000
      IF  (X.LT.XTAB(1))   TABLE = YTAB(1)                              00022000
      RETURN                                                            00023000
C     ORDER GREATER THAN OR EQUAL TO NUMBER OF POINTS SET ERROR FLAG(IER00024000
C      TO 2 AND RETURN 0.0 AS THE RESULT                                00025000
   20 IER = 2                                                           00026000
      TABLE =0.0                                                        00027000
      RETURN                                                            00028000
C     TABLE DECREASING                                                  00029000
   19 NNN = NXPTS - 1                                                   00030000
      DO  15  I = 1,NNN                                                 00031000
          IF ((X.LT.XTAB(I)) .AND. (X.GT.XTAB(I+1))) GO TO 171          00032000
          IF ( X.EQ.XTAB(I)) GO TO 16                                   00033000
   15     CONTINUE                                                      00034000
      GO TO 21                                                          00035000
C     SET UP LIMITS ON PRODUCT                                          00036000
   17 CONTINUE                                                          00037000
  180 J = I - NORD/2                                                    00038000
      K = I + NORD/2                                                    00039000
      IF (L.NE.0) K=K+1                                                 00040000
C     PRODUCT FORMULA                                                   00041000
   14 TABLE =0.0                                                        00042000
C     TEST IF J AND K ARE BETWEEN 1 AND NXPTS                           00043000
      IF (J.LE.0) GO TO 10                                              00044000
      IF ( K.GT.NXPTS ) GO TO 9                                         00045000
    8 DO 11 I = J,K                                                     00046000
      ANUM =1.0                                                         00047000
      ADEN =1.0                                                         00048000
      DO 13 M= J,K                                                      00049000
          IF ( M.EQ.I) GO TO 13                                         00050000
          ANUM = ANUM * (X-XTAB(M))                                     00051000
          ADEN = ADEN * (XTAB(I)-XTAB(M))                               00052000
   13     CONTINUE                                                      00053000
   11 TABLE = ANUM * YTAB(I) /ADEN + TABLE                              00054000
      RETURN                                                            00055000
   10 J= 1                                                              00056000
      K= NORD+1                                                         00057000
      GO TO 8                                                           00058000
    9 J = J-1                                                           00059000
      K= K-1                                                            00060000
      IF (K.GT.NXPTS) GO TO 9                                           00061000
      GO TO 14                                                          00062000
  171 CONTINUE                                                          00063000
  182 J = I - NORD/2                                                    00064000
      K = I + NORD/2                                                    00065000
      IF ( L.NE.0 ) J= J+1                                              00066000
      GO TO 14                                                          00067000
C     ARGUMENT IN TABLE                                                 00068000
   16 TABLE = YTAB(I)                                                   00069000
      RETURN                                                            00070000
      END                                                               00071000
      SUBROUTINE THRAVL(TPS,AM)                                         00001000
C**** MEMBER NAME = B93TTAVL                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2432  +  SPACE(18)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(10) ,  FMER(10,6),00156000
     1SPAC17(18)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
C                                                                       00257000
      NLIM = 0                                                          00258000
      TEA  =  TPS/THETA                                                 00259000
      IF (IWD) 4,4,2                                                    00260000
    2 WREF = XLKUP(0.0,TMAX,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)            00261000
 1001 FORMAT(9X,67HTHIS ERROR IS IN THE  M  PART OF THE REFERED FUEL FLO00262000
     1W THRUST TABLE)                                                   00263000
 1002 FORMAT(9X,67HTHIS ERROR IS IN THE  T  PART OF THE REFERED FUEL FLO00264000
     1W THRUST TABLE)                                                   00265000
      IF  (IX.NE.0) WRITE(6,1001)                                       00266000
      IF  (IY.NE.0) WRITE(6,1002)                                       00267000
      WSHP = WMAX * WREF / (DELTA * STHETA)                             00268000
      WTEMP = XLKUP(AM,TEA,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00269000
      IF  (IX.NE.0) WRITE(6,1001)                                       00270000
      IF  (IY.NE.0) WRITE(6,1002)                                       00271000
      IF (WSHP.GE.WTEMP) GO TO 4                                        00272000
      TEWD = XIBIV(AM,WSHP,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IZ)             00273000
 1003 FORMAT(9X,60HTHIS ERROR IS IN THE  W  PART OF THE REFERED FUEL FLO00274000
     1W TABLE)                                                          00275000
      IF (IX.NE.0) WRITE(6,1001)                                        00276000
      IF (IZ.NE.0) WRITE(6,1003)                                        00277000
      IF (TEA-TEWD) 4,4,3                                               00278000
    3 TEA = TEWD                                                        00279000
      NLIM = 1                                                          00280000
    4 IF (IN1)  7,7,5                                                   00281000
    5 A1REF = A1MAX / STHETA                                            00282000
      A1TEMP = XLKUP(AM,TEA,AM1,NM1,TN1,NT1,AONE,6,8,IX,IY)             00283000
      IF (IX.NE.0) WRITE(6,1004)                                        00284000
      IF (IY.NE.0) WRITE(6,1010)                                        00285000
 1010 FORMAT(9X,57HTHIS ERROR IS IN THE  T  PART OF THE N SUB 1 THRUST T00286000
     1ABLE)                                                             00287000
      IF (A1REF.GE.A1TEMP) GO TO 7                                      00288000
      TEN1 = XIBIV(AM,A1REF,AM1,NM1,TN1,NT1,AONE,6,8,IX,IZ)             00289000
 1004 FORMAT(9X,57HTHIS ERROR IS IN THE  M  PART OF THE N SUB 1 THRUST T00290000
     1ABLE)                                                             00291000
 1005 FORMAT(9X,57HTHIS ERROR IS IN THE  N1 PART OF THE N SUB 1 THRUST T00292000
     1ABLE)                                                             00293000
      IF (IX.NE.0) WRITE(6,1004)                                        00294000
      IF (IZ.NE.0) WRITE(6,1005)                                        00295000
      IF (TEA-TEN1) 7,7,6                                               00296000
    6 TEA = TEN1                                                        00297000
      NLIM = 2                                                          00298000
 7    IF (IN3) 75,75,20                                                 00299000
 20   A1REF = A3MAX*SQRT(1.0 + 0.2*AM**2.)                              00300000
      A1TEMP = XLKUP(AM,TEA,AM1,NM1,TN1,NT1,AONE,6,8,IX,IY)             00301000
      IF (IX.NE.0) WRITE(6,1004)                                        00302000
      IF (IY.NE.0) WRITE(6,1010)                                        00303000
      IF (A1REF.GE.A1TEMP) GO TO 75                                     00304000
      TEN1 = XIBIV(AM,A1REF,AM1,NM1,TN1,NT1,AONE,6,8,IX,IZ)             00305000
      IF (IX.NE.0) WRITE(6,1004)                                        00306000
      IF (IZ.NE.0) WRITE(6,1005)                                        00307000
      IF (TEA.LE.TEN1) GO TO 75                                         00308000
      TEA = TEN1                                                        00309000
      NLIM = 6                                                          00310000
 75   IF(IN2) 10,10,8                                                   00311000
    8 A2REF = A2MAX / STHETA                                            00312000
      A2TEMP = XLKUP(AM,TEA,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IZ)             00313000
      IF (IX.NE.0) WRITE(6,1006)                                        00314000
      IF (IY.NE.0) WRITE(6,1011)                                        00315000
 1011 FORMAT(9X,57HTHIS ERROR IS IN THE  T  PART OF THE N SUB 2 THRUST T00316000
     1ABLE)                                                             00317000
      IF (A2REF.GE.A2TEMP) GO TO 10                                     00318000
      TEN2 = XIBIV(AM,A2REF,AM2,NM2,TN2,NT2,ATWO,6,8,IX,IZ)             00319000
 1006 FORMAT(9X,57HTHIS ERROR IS IN THE  M  PART OF THE N SUB 2 THRUST T00320000
     1ABLE)                                                             00321000
 1007 FORMAT(9X,57HTHIS ERROR IS IN THE  N2 PART OF THE N SUB 2 THRUST T00322000
     1ABLE)                                                             00323000
      IF (IX.NE.0) WRITE(6,1006)                                        00324000
      IF (IZ.NE.0) WRITE(6,1007)                                        00325000
      IF (TEA -TEN2)  10,10,9                                           00326000
    9 TEA = TEN2                                                        00327000
      NLIM  = 3                                                         00328000
   10 SHPA = XLKUP(AM,TEA,AMSHP,NMS,TSHP,NTS,SHPAV,6,8,IX,IY)           00329000
 1008 FORMAT(9X,57HTHIS ERROR IS IN THE  M  PART OF THE REFERED THRUST T00330000
     1ABLE)                                                             00331000
 1009 FORMAT(9X,57HTHIS ERROR IS IN THE  T  PART OF THE REFERED THRUST T00332000
     1ABLE)                                                             00333000
      IF  (IX.NE.0) WRITE(6,1008)                                       00334000
      IF  (IY.NE.0) WRITE(6,1009)                                       00335000
      WSHPA = XLKUP(AM,TEA,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00336000
      IF (IX.NE.0) WRITE(6,1001)                                        00337000
      IF (IY.NE.0) WRITE(6,1002)                                        00338000
      IF (WSHPA.LT.0.0)  WSHPA = 0.0                                    00339000
      WSHPA = WSHPA * CKFF                                              00340000
      TPEA  = TEA  * THETA                                              00341000
      NPLIM = NLIM                                                      00342000
      RETURN                                                            00343000
      END                                                               00344000
      SUBROUTINE   TAXI (ITAXI)                                         00001000
C**** MEMBER NAME = B93TTAXI                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC 2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C ** VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                            00152000
C                                                                       00153000
C ***        PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)               00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      EQUIVALENCE(DATA(1),OPTIND)                                       00254000
      DIMENSION DATA(1)                                                 00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  EO(7)                                                  00257000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00258000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00259000
 9000 FORMAT(/7X10HTAXI  FOR ,F6.3,2X33HHRS. AT GROUND IDLE ENGINE RATIN00260000
     1G,10X,13HTEMPERATURE =,F6.1,6H DEG.F)                             00261000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,            00262000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00263000
     3.,2X4HCODE,4X2HOR,5X4HLETF,                                       00264000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00265000
     53H(R),11X4HPEHF)                                                  00266000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00267000
     1F5.3,3XF5.3)                                                      00268000
      AN2MAX  = AN2M1(ITAXI)                                            00269000
      V   = 0.0                                                         00270000
      HH = H                                                            00271000
      INDATM = ATMIND(ITAXI)                                            00272000
      CALL ATMOS(HH,ATMIND(ITAXI),TIN(ITAXI))                           00273000
      TEMP = THETA * 518.69  -  459.69                                  00274000
      IF(OPTIND.NE.2.) GO TO 395                                        00275000
      ST11 = ST                                                         00276000
      WF11 =WF                                                          00277000
      W11  = W                                                          00278000
      IF(DNITFL.EQ.0.) LETF = 0.                                        00279000
      WRITE(6,9000)  DELTT(ITAXI),TEMP                                  00280000
      WRITE(6,9001)                                                     00281000
  395 IF(DNITFL.EQ.1.) GO TO 3                                          00282000
      FL = 0.                                                           00283000
      IF(ENGIND.EQ.0.) GO TO 2                                          00284000
    4 CALL  THRAVL(TGI,0.0)                                             00285000
      TKE  = TPEA                                                       00286000
      KE   = NPLIM + 1                                                  00287000
      TLP  = SHPA                                                       00288000
      FP   = WSHPA * DELTA * STHETA * TP                                00289000
      CALL  THRAVL(TMAX,0.0)                                            00290000
      PEHF = TLP / SHPA                                                 00291000
    1 FT   = FP + FL * SKFL(ITAXI)                                      00292000
      WFT = FT * DELTT(ITAXI)                                           00293000
      W   = W - WFT                                                     00294000
      WF  = WF +WFT                                                     00295000
      ST  =  ST + DELTT(ITAXI)                                          00296000
      IF (OPTIND.NE.2.) GO TO 396                                       00297000
      WRITE(6,9002) ST11,R,WF11,W11,H,V,TKE,EO(KE),PEHF,LETF            00298000
      WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,LETF                  00299000
  396 CONTINUE                                                          00300000
      RETURN                                                            00301000
    2 CALL  POWAVL(TGI,0.0)                                             00302000
      TKE  = TPEA                                                       00303000
      KE   = NPLIM + 1                                                  00304000
      BLP  =  SHPA                                                      00305000
      FP   =  WSHPA * DELTA * STHETA * BHPP                             00306000
      CALL  POWAVL(TMAX,0.0)                                            00307000
      PEHF =  BLP / SHPA                                                00308000
      GOTO1                                                             00309000
    3 CALL  LIFAVL(TLGI)                                                00310000
      TLL  = FLIF                                                       00311000
      WDOTFL = FWA                                                      00312000
      CALL  LIFAVL(TLMAX)                                               00313000
      LETF  = SKFL(ITAXI) * TLL / FLIF                                  00314000
      FL  = WDOTFL * DELTA * STHETA * TL                                00315000
      GOTO4                                                             00316000
      END                                                               00317000
      SUBROUTINE THRUST(TPROP,YLS2,ETAP)                                00001000
C**** MEMBER NAME = B93TTHRT                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
      DIMENSION A0(3,15),A1(3,15),A2(3,15),BB0(16),BB1(16),BB2(16),     00006000
     1 RJ3(10),CPOW3(10),ETAI3(10,10),RJ4(10),CPOW4(10),ETAI4(10,10),   00007000
     2AMACH(3),CLLL(15),CLGAM(16),CPOW33(20),CTI3(20),CTI4(20),         00008000
     3 GMDD1(16),GAMD11(3,15)                                           00009000
C ****    INPUT  COMMON                                                 00010000
C                                                                       00011000
C                                                                       00012000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00013000
C                                                                       00014000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00015000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00016000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00017000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00018000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00019000
C                                                                       00020000
C                                                                       00021000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00022000
C                                                                       00023000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00024000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00025000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00026000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00027000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00028000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00029000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00030000
     7SKIP1(9)                                                          00031000
C                                                                       00032000
C                                                                       00033000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00034000
C                                                                       00035000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00036000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00037000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00038000
C                                                                       00039000
C                                                                       00040000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00041000
C                                                                       00042000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00043000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00044000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00045000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00046000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00047000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00048000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00049000
     7CKRC      ,SPACE3(38)                                             00050000
C                                                                       00051000
C                                                                       00052000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00053000
C                                                                       00054000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00055000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00056000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00057000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00058000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00059000
C                                                                       00060000
C                                                                       00061000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00062000
C                                                                       00063000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00064000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00065000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00066000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00067000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00068000
     5SKMT      ,SKNAC     ,SKLMT                                       00069000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00070000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00071000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00072000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00073000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00074000
C                                                                       00075000
C                                                                       00076000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00077000
C                                                                       00078000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00079000
     1SPACE6(50)                                                        00080000
C                                                                       00081000
C                                                                       00082000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00083000
C                                                                       00084000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00085000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00086000
C                                                                       00087000
C                                                                       00088000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00089000
C                                                                       00090000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00091000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00092000
C                                                                       00093000
C                                                                       00094000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00095000
C                                                                       00096000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00097000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00098000
C                                                                       00099000
C                                                                       00100000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00101000
C                                                                       00102000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00103000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00104000
C                                                                       00105000
C                                                                       00106000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00107000
C                                                                       00108000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00109000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00110000
C                                                                       00111000
C                                                                       00112000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00113000
C                                                                       00114000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00115000
     1WGTIND    ,SPAC12(49)                                             00116000
C                                                                       00117000
C                                                                       00118000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00119000
C                                                                       00120000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00121000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00122000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00123000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00124000
C                                                                       00125000
C                                                                       00126000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00127000
C                                                                       00128000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00129000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00130000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00131000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00132000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00133000
     5SPAC14(35)                                                        00134000
C                                                                       00135000
C                                                                       00136000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00137000
C                                                                       00138000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00139000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00140000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00141000
C                                                                       00142000
C                                                                       00143000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00144000
C                                                                       00145000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00146000
     1SAVE(58)                                                          00147000
C                                                                       00148000
C                                                                       00149000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00150000
C                                                                       00151000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00152000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10) , DELVP(10), VMAXP(10), 00153000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00154000
C                                                                       00155000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00156000
C                                                                       00157000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00158000
C                                                                       00159000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00160000
     1SPAC17(22)                                                        00161000
C                                                                       00162000
C                                                                       00163000
C ****         COMMON    MAIN                                           00164000
C                                                                       00165000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00166000
     1R         ,ST        ,H        ,OPTION                            00167000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00168000
     1BHPP      ,TP        ,TL        ,SEE                              00169000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00170000
      COMMON     NEXT      ,DTOR      ,RTOD                             00171000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00172000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00173000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00174000
C                                                                       00175000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00176000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00177000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00178000
     2FWR       ,TLEA      ,NLLIM                                       00179000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00180000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00181000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00182000
C                                                                       00183000
C                   AERO                      AERO                      00184000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00185000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00186000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00187000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00188000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00189000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00190000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00191000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00192000
C                                                                       00193000
C                   ATMOS                     ATMOS                     00194000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00195000
      COMMON     RHO       ,S2RHO                                       00196000
C                                                                       00197000
C                   CHGFW                     CHGFW                     00198000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00199000
C                                                                       00200000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00201000
C                                                                       00202000
C                   CLIMB                     CLIMB                     00203000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00204000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00205000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00206000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00207000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00208000
      COMMON    V1      ,INDEX3      ,IOPTH                             00209000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00210000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00211000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00212000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00213000
C                                                                       00214000
C                   DRAG                      DRAG                      00215000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00216000
C                                                                       00217000
C                   DSCNT                     DSCNT                     00218000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00219000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00220000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00221000
      COMMON     T                                                      00222000
C                                                                       00223000
C                   ENGSZ                     ENGSZ                     00224000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00225000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00226000
      COMMON     P         ,ANXMAX                                      00227000
C                                                                       00228000
C                   LOITR                     LOITR                     00229000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00230000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00231000
C                                                                       00232000
C                   SIZTR                     SIZTR                     00233000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00234000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00235000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00236000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00237000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00238000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00239000
C                                                                       00240000
C                   TAXI                      TAXI                      00241000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00242000
C                                                                       00243000
C                   TOHL                      TOHL                      00244000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00245000
C                                                                       00246000
C                   WGHTR                     WGHTR                     00247000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00248000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00249000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00250000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00251000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00252000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00253000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00254000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00255000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00256000
     1EMDEMD(10),PEHFPE(10)                                             00257000
      COMMON/ODD/A0,A1,A2,BB0,BB1,BB2,RJ3,CPOW3,ETAI3,RJ4,CPOW4,        00258000
     4 ETAI4,AMACH,CLLL,CLGAM,CPOW33,CTI3,CTI4,GMDD1,GAMD11             00259000
      NOXPJ = XPJNO + 0.1                                               00260000
      NOCPP = CPPNO + 0.1                                               00261000
      NOCTSG = CTSGNO + 0.01                                            00262000
      NOMTP  = TPMNO + 0.01                                             00263000
      PI = 3.14159                                                      00264000
      P = A2STR*VT                                                      00265000
      REALJ = 1.689*PI*V/P                                              00266000
      CCP = 550.*(PI**4)*(STHETA**3)*BHPP*YLS2*SHPA*ETAT*WGA/           00267000
     1 (0.009507*WG  *P**3)                                             00268000
      ITER = 0                                                          00269000
      IF (ETAIND.EQ.2.0) GO TO 7                                        00270000
      IF(ETAIND.NE.3.0)GO TO 9                                          00271000
      HPADTH = BHPP*YLS2*SHPA*ETAT*WGA/WG                               00272000
      TOAD = XIBIV(EM,HPADTH,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY) 00273000
      CCT = PI**3*TOAD*THETA/(0.009507*P**2)                            00274000
      GO TO 33                                                          00275000
 7    IF (REALJ.EQ.0.0) GO TO 19                                        00276000
      EMH75 = EM*SQRT((0.75*PI/REALJ)**2 + 1.0)                         00277000
      IF (EMH75.LT.0.70) EMH75 = 0.70                                   00278000
      GAMD2 = 1.0                                                       00279000
      TANP = 4.0*REALJ/(3.0*PI)                                         00280000
      IF (BLDN.LE.3.0) ETAI = BIV(REALJ,CCP,RJ3,CPOW3,ETAI3,10,10,10,10)00281000
      IF (BLDN.GE.4.0) ETAI = BIV(REALJ,CCP,RJ4,CPOW4,ETAI4,10,10,10,10)00282000
      PHIT = ATAN(TANP/ETAI)                                            00283000
      SINP = SIN(PHIT)                                                  00284000
      CLIK = 4.0*CCP/(SIGS*SINP*(COS(PHIT)+SINP*TANP)**2*(0.75*PI)**4)  00285000
      GAMD3 = ATAN(TANP*(CLIK/1.2-1.0)/ETAI)*RTOD                       00286000
      IF (GAMD3.GT.1.0) GAMD2 = GAMD3                                   00287000
      CL1 = CLIK/(1. + TAN(GAMD2*DTOR)*COTAN(PHIT))                     00288000
      GAMD1 = BIV(EMH75,CL1,AMACH,CLLL,GAMD11,3,15,3,15)                00289000
      DELGM1 = GAMD1 - GAMD2                                            00290000
      CL2 = CLIK/(1.0 + TAN(GAMD1*DTOR)*COTAN(PHIT))                    00291000
 23   IF (CL2.LT.0.1) GO TO 52                                          00292000
      GAMD1 = BIV(EMH75,CL2,AMACH,CLLL,GAMD11,3,15,3,15)                00293000
      GAMD2 = ATAN(TAN(PHIT)*(CLIK/CL2 -1.0))*RTOD                      00294000
      DELGM2 = GAMD1 - GAMD2                                            00295000
      IF (ABS(DELGM2).LE.0.02) GO TO 3                                  00296000
      ITER = ITER + 1                                                   00297000
      IF (ITER.GT.20) GO TO 16                                          00298000
      CL3 = (CL1*DELGM2 - CL2*DELGM1)/(DELGM2 - DELGM1)                 00299000
      CL1 = CL2                                                         00300000
      CL2 = CL3                                                         00301000
      DELGM1 = DELGM2                                                   00302000
      GO TO 23                                                          00303000
 52   DLGM10 = BIV(EMH75,0.1,AMACH,CLLL,GAMD11,3,15,3,15)-ATAN(TAN(PHIT)00304000
     1*(10.*CLIK - 1.0))*RTOD                                           00305000
      IF (DLGM10.GT.0.0) GO TO 50                                       00306000
      DLGM1 = DLGM10                                                    00307000
      DO 30 I = 4,15                                                    00308000
      CCL = CLLL(I)                                                     00309000
      DLGM2 = BIV(EMH75,CCL,AMACH,CLLL,GAMD11,3,15,3,15)-ATAN(TAN(PHIT)*00310000
     1(CLIK/CCL-1.0))*RTOD                                              00311000
      IF (DLGM2.GT.0.0) GO TO 31                                        00312000
 30   CONTINUE                                                          00313000
      WRITE(6,7415)                                                     00314000
 7415 FORMAT(9X,*PROGRAM HAD DIFFICULTY CONVERGING IN THE CL/GAMMA CALCU00315000
     1LATION , A CL OF 1.2 HAS ASSIGNED SUBROUTINE THRUST*)             00316000
      CCCL = 1.2                                                        00317000
      GO TO 32                                                          00318000
 31   CCCL = CLLL(I)-(CLLL(I)-CLLL(I-1))*DLGM2/(DLGM2-DLGM1)            00319000
 32   GAMD1 = ATAN(TAN(PHIT)*(CLIK/CCCL-1.0))*RTOD                      00320000
      GO TO 3                                                           00321000
 50   DLGM5 = BIV(EMH75,0.05,AMACH,CLLL,GAMD11,3,15,3,15)-ATAN(TAN(PHIT)00322000
     1*(20.*CLIK-1.0))*RTOD                                             00323000
      IF (DLGM5.GT.0.0) GO TO 51                                        00324000
      DLGM2 = DLGM10                                                    00325000
      I = 3                                                             00326000
      DLGM1 = DLGM5                                                     00327000
      GO TO 31                                                          00328000
 51   GAMD5 = BIV(EMH75,0.05,AMACH,CLLL,GAMD11,3,15,3,15)               00329000
      GAMD10 = BIV(EMH75,0.1,AMACH,CLLL,GAMD11,3,15,3,15)               00330000
      DGD1CL = 40.*GAMD5 - (10.*GAMD10 + 2700.)                         00331000
      DGD2CL = -COTAN(PHIT)/CLIK                                        00332000
      IF (DGD1CL.LT.DGD2CL) GO TO 53                                    00333000
      ETAP = 0.5*ETAP                                                   00334000
      CCT = ETAP*CCP/REALJ                                              00335000
      GO TO 21                                                          00336000
 53   DDGDCL = DGD1CL - DGD2CL                                          00337000
      CCCL = -DDGDCL/(400.*DLGM5 - 20.*DDGDCL)                          00338000
      GO TO 32                                                          00339000
 19   IF (BLDN.LE.3.0) CTIND = XLINT(CPOW33,CTI3,CCP,20,M)              00340000
      IF (BLDN.GE.4.0) CTIND = XLINT(CPOW33,CTI4,CCP,20,M)              00341000
      IF (M.NE.0) WRITE(6,45)                                           00342000
 45   FORMAT(9X,52HTHIS ERROR IS IN THE CT/CP TABLE - SUBROUTINE THRUST)00343000
      PHIT = ATAN(CCP/(0.75*PI*CTIND))                                  00344000
      SINP = SIN(PHIT)                                                  00345000
      GAMD2 = 1.0                                                       00346000
      CLIK = 4.0*CCP/((0.75*PI)**4*SIGS*SINP*COS(PHIT)**2)              00347000
      GAMD3 = ATAN(TAN(PHIT)*(CLIK/2.0-1.))*RTOD                        00348000
      IF (GAMD3.GT.1.0) GAMD2 = GAMD3                                   00349000
      CL1 = CLIK/(1. + TAN(GAMD2*DTOR)*COTAN(PHIT))                     00350000
      GAMD1 = TABLE(CL1,CLGAM,GMDD1,16,2,M)                             00351000
      IF (M.NE.0) WRITE(6,47)                                           00352000
 47   FORMAT(9X,83HTHIS ERROR IS IN THE PROPELLER EQUIVALENT LIFT/DRAG P00353000
     1OLAR TABLE - SUBROUTINE THRUST    )                               00354000
      DELGM1 = GAMD1 - GAMD2                                            00355000
      CL2 = CLIK/(1.0 + TAN(GAMD1*DTOR)*COTAN(PHIT))                    00356000
 14   GAMD1 = TABLE(CL2,CLGAM,GMDD1,16,2,M)                             00357000
      IF (M.NE.0) WRITE(6,47)                                           00358000
      GAMD2 = ATAN(TAN(PHIT)*(CLIK/CL2 - 1.0))*RTOD                     00359000
      DELGM2 = GAMD1 - GAMD2                                            00360000
      IF (ABS(DELGM2).LE.0.02) GO TO 12                                 00361000
      ITER = ITER   + 1                                                 00362000
      IF (ITER.GT.20) GO TO 16                                          00363000
      CL3 = (CL1*DELGM2 - CL2*DELGM1)/(DELGM2 - DELGM1)                 00364000
      CL1 = CL2                                                         00365000
      CL2 = CL3                                                         00366000
      DELGM1 = DELGM2                                                   00367000
      GO TO 14                                                          00368000
 12   CCT = CCP*(COTAN(GAMD1*DTOR + PHIT)/(0.75*PI))                    00369000
      ETAP = 0.798*CCT**1.5/CCP                                         00370000
      GO TO 21                                                          00371000
 3    ETAP = TANP/TAN(GAMD1*DTOR + PHIT)                                00372000
      CCT = ETAP*CCP/REALJ                                              00373000
      GO TO 21                                                          00374000
   9  IF(REALJ.EQ.0.0.AND.ETAIND.EQ.1.0) GO TO 843                      00375000
      CCT = XIBIV(REALJ,CCP,XPJ,NOXPJ,CPPROP,NOCPP,CTPROP,20,20,IX,IY)  00376000
      GO TO 33                                                          00377000
  843 TIPP = P/(SA * 1.689)                                             00378000
      ETAP = XLKUP(CTSIG,TIPP,CTOSIG,NOCTSG,TIPM,NOMTP,FMER,10,6,IX,IY) 00379000
      CCT = ((CCP * ETAP)/0.798)**0.666667                              00380000
      IF(IX.NE.0) WRITE(6,1005)                                         00381000
      IF(IY.NE.0) WRITE(6,1007)                                         00382000
      GO TO 127                                                         00383000
   33 IF(IX.NE.0) WRITE(6,1001)                                         00384000
 1001 FORMAT(9X,70HTHIS ERROR IS IN THE  J  PART OF THE PROPELLER POWER 00385000
     1COEFFICIENT TABLE)                                                00386000
      IF(IY.NE.0) WRITE(6,1003)                                         00387000
 1003 FORMAT(9X,70HTHIS ERROR IS IN THE  CP PART OF THE PROPELLER POWER 00388000
     1COEFFICIENT TABLE)                                                00389000
 1005 FORMAT(9X,*THIS ERROR IS IN THE CT/SIGMA PART OF THE FIGURE*,     00390000
     1* OF MERIT TABLE - SUBROUTINE THRUST*)                            00391000
 1007 FORMAT(9X,*THIS ERROR IS IN THE MACH NO. PART OF THE FIGURE*,     00392000
     1* OF MERIT TABLE - SUBROUTINE THRUST*)                            00393000
  127 IF(REALJ.NE.0.0)  ETAP = REALJ*CCT/CCP                            00394000
      IF(REALJ.EQ.0.0.AND.ETAIND.NE.1.0) ETAP = 0.798*CCT**1.5/CCP      00395000
 21   TPROP = 0.009507*SIGMA*WG*(P**2)*CCT/((PI**3)*WGA)                00396000
      GO TO 36                                                          00397000
 16   WRITE(6,43)                                                       00398000
 43   FORMAT(10X,65HGAMMA FAILED TO CONVERGE IN TWENTY ITERATIONS - SUBR00399000
     1OUTINE THRUST/)                                                   00400000
 36   RETURN                                                            00401000
      END                                                               00402000
      SUBROUTINE TOHL (ITOHL)                                           00001000
C**** MEMBER NAME = B93TOHL                                             00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)          00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      DIMENSION  EO(7)                                                  00257000
      DATA  EO(1)/4H T  / ,EO(2)/4H W  / ,EO(3)/4H N1 /                 00258000
      DATA  EO(4)/4H N2 / ,EO(5)/4H Q  / ,EO(6)/4H P  / ,EO(7)/4H C  /  00259000
      NAMELIST/NTOHL/LC1,STMAX,INDATM,H,DNITFL,ENGIND,BLP,BHPSUP,BHPPY,T00260000
     1SUBP,TPY,YALE22,TLP,TSFC,FP,FL,SFC,TLL,TSUBL,LETF,WDOTFL,FL,F,DLTT00261000
     2H,W,WF,ST,PEHF,PETF,IFUDGE                                        00262000
 8999 FORMAT(/7X,*TAKEOFF, HOVER, OR LAND AT PETF = *,F5.3,2X,*LETF = *,00263000
     1F5.3,* FOR *,F6.3,* HRS.*,/7X,*VERTICAL RATE OF CLIMB =*,F7.1,1X, 00264000
     2*FT/MIN*,12X,*TEMPERATURE =*,F6.1,1X,*DEG.F*)                     00265000
 9000 FORMAT(/7X,*TAKEOFF, HOVER, OR LAND AT  T/W = *,F5.3,1X,*FOR*,1X, 00266000
     1F6.3,*.HRS.*,/7X,*VERTICAL RATE OF CLIMB =*,F7.1,1X,*FT/MIN*,12X, 00267000
     2*TEMPERATURE =*,F6.1,1X,*DEG.F*)                                  00268000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,12X18HTURB.  ENG.   PETF,12X6HTHRUST 00269000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,5X3HTAS,5X5HTEMP00270000
     3.,2X4HCODE,4X2HOR,5X4HLETF,6X2HTO,5X3H FM,9H     BHP ,8H   CT   , 00271000
     A 7H  VTIP                                                         00272000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT),5X5H(KTS),3X  00273000
     53H(R),11X4HPEHF,12X6HWEIGHT,25X5H(FPS))                           00274000
 9002 FORMAT(7XF6.3,3XF8.2,3X,F7.1,3XF8.0,3XF6.0,3XF6.1,2XF6.1,2X,A4,2X 00275000
     1F5.3,3XF5.3,4XF6.3,2XF5.3,1XF7.0,1XF6.4,2XF5.0)                   00276000
      IFUDGE = ITOHL                                                    00277000
      PI = 3.14159                                                      00278000
      INDATM = ATMIND(ITOHL + 10)                                       00279000
      HH = H                                                            00280000
      CALL ATMOS(HH,ATMIND(ITOHL + 10),TIN(ITOHL + 10))                 00281000
      TEMP = THETA * 518.69  -  459.69                                  00282000
      IF (ETAIND.EQ.0.0) ETAP = ETAP2                                   00283000
      IF (OPTIND.NE.2.0) GO TO 27                                       00284000
      IF (TOLIND(ITOHL).EQ.3.0) GO TO 37                                00285000
      WRITE(6,9000) ENT(ITOHL),STH(ITOHL),VRCTO(ITOHL),TEMP             00286000
      GO TO 38                                                          00287000
 37   WRITE(6,8999) PFET2(ITOHL),FLET2(ITOHL),STH(ITOHL),VRCTO(ITOHL),  00288000
     1TEMP                                                              00289000
 38   WRITE(6,9001)                                                     00290000
      IF (ETAIND.EQ.1.0.AND.XPJ(1).EQ.0.0)                              00291000
     1 WRITE(6,5226)                                                    00292000
 5226 FORMAT(/2X*CAUTION, PROPELLER POWER TABLE INCLUDES ADVANCE RATIO*,00293000
     1* EQUAL TO ZERO*,/2X,*FOR THE STATIC THRUST CONDITION, FM IS*,    00294000
     2* INPUT AS A FUNCTION OF CT/SIGMA AND MTIP*)                      00295000
      IF(ETAIND.GE.2.0.AND.XPJ(1).GT.0.0) WRITE(6,5227)                 00296000
 5227 FORMAT(/2X,*CAUTION, STATIC THRUST NOT INCLUDED IN PROP DECK,*,   00297000
     1* LOWEST ADVANCE RATIO USED*)                                     00298000
 27   AN2MAX = AN2M2(ITOHL)                                             00299000
      ANT = ENT(ITOHL)                                                  00300000
      LC1=0                                                             00301000
      V   =  0.0                                                        00302000
      EM=0.0                                                            00303000
      STMAX = ST + STH(ITOHL)                                           00304000
      INDTOL  =  TOLIND(ITOHL)                                          00305000
      DSHPRC = W * VRCTO(ITOHL)/(33000. * CKRC)                         00306000
      VMN = VRCTO(ITOHL)/(101.34 * SA)                                  00307000
C **  DSHPRC = DELTA POWER NECESSARY TO CLIMB VERTICALLY AT VRCTO       00308000
C **  VMN = VERTICAL MACH NO. FOR T/FAN ENGINES                         00309000
  201 IF (INDTOL.NE.1) GO TO 300                                        00310000
C **  NOTE IF TOLIND=3 FUEL FLOW IS INDEPENDENT OF VERTICAL CLIMB RATE  00311000
      IF(DNITFL.EQ.1.) GO TO 19                                         00312000
      IF(ENGIND.NE.0.) GO TO 14                                         00313000
      CALL  POWAVL(TMAX,0.0)                                            00314000
      BLP  = SHPA                                                       00315000
      TKE = TPEA                                                        00316000
      KE  = NPLIM +1                                                    00317000
      BHPSUP = BLP * BHPP * DELTA * STHETA                              00318000
 13   IF (ETAIND.NE.0.0) GO TO 29                                       00319000
      BHPPS =ENT(ITOHL)**1.5*WG*SQRT(WGA) /(550.*ETAT*ETAP2*S2RHO)      00320000
     1    + DSHPAC + DSHPRC                                             00321000
      IF (BHPSUP.GE.BHPPS) GO TO 11                                     00322000
      GO TO 28                                                          00323000
 29   TPROP = ENT(ITOHL)*W                                              00324000
      IF (ENGIND.EQ.2.0) BHPP = TP/BETA                                 00325000
      CALL POWER(TPROP,1.0,ETAP)                                        00326000
      BHPR = BHPP*SHPR*DELTA*STHETA + DSHPRC                            00327000
C **  DSHPAC IS ACCOUNTED FOR IN THE POWER SUBROUTINE, BUT DELTA POWER  00328000
C     NECESSARY TO CLIMB AT VRCTO IS DIRECTLY ADDED TO POWER REQUIRED   00329000
      IF (BHPSUP.GE.BHPR) GO TO 11                                      00330000
 28   IF (OPTIND.EQ.2.0) WRITE(6,232)                                   00331000
 5224 FORMAT(//2X5HERROR100(1H*)//)                                     00332000
  232 FORMAT(7X,37HCAUTION **  PEHF   IS GREATER THAN 1.)               00333000
   11 BHPPY= BHPSUP                                                     00334000
      IF(ENGIND.EQ.0.) GO TO 10                                         00335000
      TPY = BETA*BHPPY                                                  00336000
      BHPSUP = BHPPS                                                    00337000
      IF (ETAIND.EQ.0.0) GO TO 31                                       00338000
      TSUBP = BETA*BHPR                                                 00339000
      GO TO 9916                                                        00340000
 31   TSUBP = BETA*BHPPS                                                00341000
 9916 YALE22= TSUBP /(DELTA * TP)                                       00342000
      TLP = YALE22                                                      00343000
      SHPR  = YALE22                                                    00344000
      CALL  THRREQ(VMN)                                                 00345000
      FP  = WSHPR * DELTA * STHETA * TP                                 00346000
      TKE  = TPEA                                                       00347000
      KE   = 6                                                          00348000
      FL  = 0.                                                          00349000
      GO TO 202                                                         00350000
 10   IF (ETAIND.EQ.0.0) GO TO 30                                       00351000
      BHPSUP = BHPR                                                     00352000
      GO TO 32                                                          00353000
 30   BHPSUP = BHPPS                                                    00354000
 32   YALE22 = BHPSUP/(BHPP*DELTA*STHETA)                               00355000
C **  DSHPAC IS ACCOUNTED FOR (ALONG WITH DSHPRC) IN BHPSUP             00356000
      BLP = YALE22                                                      00357000
      SHPR  = YALE22                                                    00358000
      CALL  POWREQ(0.0)                                                 00359000
      FP  = WSHPR * DELTA * STHETA * BHPP                               00360000
      TKE  = TPEA                                                       00361000
      KE   = 6                                                          00362000
      LETF  = 0.0                                                       00363000
      FL  = 0.                                                          00364000
      GO TO 202                                                         00365000
   14 CALL  THRAVL(TMAX,VMN)                                            00366000
      TLP  =  SHPA                                                      00367000
      TKE = TPEA                                                        00368000
      KE  = NPLIM +1                                                    00369000
      TSUBP = TLP * DELTA * TP                                          00370000
      IF(ENGIND.EQ.1.) GO TO 9                                          00371000
      BHPSUP= TSUBP / BETA                                              00372000
      GO TO 13                                                          00373000
    9 IF(TSUBP.LT.(ENT(ITOHL) * W /ETAP2)) GO TO 16                     00374000
  161 TPY = TSUBP                                                       00375000
      TSUBP =      ENT(ITOHL) * W /ETAP2                                00376000
      GO TO 9916                                                        00377000
   19 CALL  LIFAVL(TLMAX)                                               00378000
      TLL  = FLIF                                                       00379000
      TSUBL = TLL * DELTA * TL                                          00380000
      IF(TSUBL.LT.(ENT(ITOHL) * W / ETAL)) GO TO 17                     00381000
      LETF= ENT(ITOHL) * W /(TSUBL * ETAL)                              00382000
      TSUBL =      ENT(ITOHL) * W / ETAL                                00383000
      TSUBP = 0.                                                        00384000
      YALE22= TSUBL / (DELTA * TL)                                      00385000
      TLL = YALE22                                                      00386000
      FP  = 0.                                                          00387000
      TKE = TFI                                                         00388000
      KE  = 1                                                           00389000
      FREQ  = YALE22                                                    00390000
      CALL  LIFREQ                                                      00391000
      WDOTFL = FWR                                                      00392000
      FL  = WDOTFL * DELTA * STHETA * TL                                00393000
      GO TO 202                                                         00394000
   17 LETF = 1.                                                         00395000
      CALL  THRAVL(TMAX,VMN)                                            00396000
C **  NOTE IT IS ASSUMED THAT THE DELTA THRUST NECESSARY TO CLIMB       00397000
C     AT VRCTO IS COMING FROM THE PRIM ENGINES (WITH LETF EQUAL TO 1.0) 00398000
      TLP  = SHPA                                                       00399000
      TKE = TPEA                                                        00400000
      KE  = NPLIM +1                                                    00401000
      TSUBP = TLP * DELTA * TP                                          00402000
      YALE22 =(ENT(ITOHL)*W - TSUBL*ETAL) / ETAP2                       00403000
      IF(TSUBP.LT.YALE22) GO TO 16                                      00404000
  162 TPY = TSUBP                                                       00405000
      TSUBP= YALE22                                                     00406000
      TLP  = TSUBP /(TP * DELTA)                                        00407000
      SHPR  = TLP                                                       00408000
      CALL  THRREQ(VMN)                                                 00409000
C **  VMN IS USED TO OBTAIN THE CORRECT FUEL FLOW CORRESPONDING TO THE  00410000
C     DELTA THRUST REQUIRED TO CLIMB VERTICALLY AT VRCTO                00411000
      TKE  =  TPEA                                                      00412000
      KE   =  6                                                         00413000
      FP   =  WSHPR * DELTA * STHETA * TP                               00414000
      FREQ =  TLL                                                       00415000
      CALL  LIFREQ                                                      00416000
      WDOTFL = FWR                                                      00417000
      FL = WDOTFL * TL * DELTA * STHETA                                 00418000
      GO TO 202                                                         00419000
   16 IF (OPTIND.EQ.2.)  WRITE(6,233)                                   00420000
  233 FORMAT(7X,37HCAUTION **  PETF   IS GREATER THAN 1.)               00421000
      IF(DNITFL.EQ.1.)  GO TO 162                                       00422000
      GO TO 161                                                         00423000
  202 F  = FP + FL                                                      00424000
      IF(OPTIND.EQ.2.) GO TO 203                                        00425000
  204 CONTINUE                                                          00426000
      IF(LC1.EQ.1) RETURN                                               00427000
      IF((ST + DELTH(ITOHL)).GE.STMAX) GO TO 205                        00428000
      DLTTH =DELTH(ITOHL)                                               00429000
      GO TO 206                                                         00430000
  205 LC1=1                                                             00431000
      DLTTH = STMAX - ST                                                00432000
  206 W  = W - F * DLTTH                                                00433000
      WF = WF+ F * DLTTH                                                00434000
      ST = ST + DLTTH                                                   00435000
      GO TO 201                                                         00436000
  203 IF(ENGIND.EQ.0.) GO TO 207                                        00437000
      IF(TSUBP.EQ.0.) PEHF =0.                                          00438000
      IF (TSUBP.EQ.0.0.AND.ENGIND.EQ.1.0) GO TO 2044                    00439000
      PEHF = TSUBP / TPY                                                00440000
      IF (ENGIND.EQ.2.0) GO TO 253                                      00441000
      GO TO 2044                                                        00442000
  207 PEHF = BHPSUP/ BHPPY                                              00443000
 253  IF (ENGIND.EQ.2.0.AND.IN2.EQ.2) A2STR = A2MAX*AN2MAX              00444000
      P = A2STR*VT                                                      00445000
      CCT = ENT(ITOHL)*W*PI**3*WGA/(0.009507*SIGMA*WG*P**2)             00446000
 2044 WRITE(6,9002) ST,R,WF,W,H,V,TKE,EO(KE),PEHF,LETF,                 00447000
     1 ANT,ETAP,BHPSUP,CCT,P                                            00448000
      GO TO 204                                                         00449000
  300 PEHF =PFET2(ITOHL)                                                00450000
      IF (INDTOL.EQ.3) GO TO 350                                        00451000
      IF(.NOT.(DNITFL.EQ.0..OR.ENGIND.NE.1.))GO TO 310                  00452000
      WRITE(6,5224)                                                     00453000
      WRITE(6,301)                                                      00454000
  301 FORMAT(10X,80HTAKEOFF AND LANDING OPTION NO. 2 IS NOT PERMITTED IF00455000
     1 ENGIND = 0,2  OR LFTIND = 0)                                     00456000
      NEXT = 1                                                          00457000
      RETURN                                                            00458000
  310 CALL LIFAVL(TLMAX)                                                00459000
      CALL THRAVL(TMAX,VMN)                                             00460000
C **  NOTE THAT EQUAL POWER (THRUST/WEIGHT) IS COMING FROM LIFT AND PRIM00461000
C     ENGINES. THE ADDITIONAL THRUST REQUIRED TO CLIMB AT VRCTO IS      00462000
C     COMING FROM THE PRIMARY ENGINES                                   00463000
      TKE = TPEA                                                        00464000
      KE  = NPLIM +1                                                    00465000
      TA = (SHPA* TP * ETAP2 + FLIF* TL * ETAL)* DELTA                  00466000
      IF (TA.LT.(ENT(ITOHL)*W)) WRITE(6,233)                            00467000
      PEHF = ENT(ITOHL)*W /TA                                           00468000
      SHPR = PEHF * SHPA                                                00469000
      FREQ = PEHF * FLIF                                                00470000
      LETF = PEHF                                                       00471000
      CALL  THRREQ(VMN)                                                 00472000
C **  VMN IS SPECIFIED TO YIELD THE CORRECT FUEL FLOW ASSOCIATED WITH   00473000
C     THE DELTA THRUST NECESSARY TO CLIMB AT VRCTO                      00474000
      TKE  = TPEA                                                       00475000
      KE  = 6                                                           00476000
      FP  = WSHPR * DELTA * STHETA * TP                                 00477000
      CALL  LIFREQ                                                      00478000
      FL  = FWR * DELTA * STHETA * TL                                   00479000
      F = FP +FL                                                        00480000
      IF(OPTIND.EQ.2.)WRITE(6,9002)ST,R,WF,W,H,V,TKE,EO(KE),PEHF,LETF,  00481000
     1   ANT,ETAP                                                       00482000
      GO TO 204                                                         00483000
  350 IF(DNITFL.EQ.1.) GO TO 352                                        00484000
      LETF = 0.0                                                        00485000
      ANL = 0.0                                                         00486000
      FL = 0.0                                                          00487000
      ETAL = 0.0                                                        00488000
      IF (ENGIND.EQ.0.0)  GO TO 360                                     00489000
      GO TO 354                                                         00490000
  352 LETF  =FLET2(ITOHL)                                               00491000
      CALL  LIFAVL(TLMAX)                                               00492000
      FREQ  = LETF * FLIF                                               00493000
      CALL  LIFREQ                                                      00494000
      FL  = FWR * DELTA*STHETA * TL                                     00495000
      ANL  = FREQ * TL * DELTA * ETAL / W                               00496000
  354 CALL  THRAVL(TMAX,0.0)                                            00497000
      TKE = TPEA                                                        00498000
      KE  = NPLIM +1                                                    00499000
      SHPR = PEHF * SHPA                                                00500000
      CALL  THRREQ(0.0)                                                 00501000
      TKE  = TPEA                                                       00502000
      KE  = 6                                                           00503000
      FP   = WSHPR * DELTA * STHETA * TP                                00504000
      IF (ENGIND.EQ.2.0) GO TO 370                                      00505000
      ANT        = SHPR * TP * DELTA * ETAP2 /W  + ANL                  00506000
      GO TO 365                                                         00507000
  360 CALL  POWAVL(TMAX,0.0)                                            00508000
C **  SINCE SPECIFIED POWER FRACTION IS WARRANTED, VMN WAS NOT USED IN  00509000
C     CALLING POWAVL OR POWREQ(FOR FUEL FLOW). HOWEVER, THE POWER THAT  00510000
C     IS PRINTED OUT IS THE CORRECT POWER ACCOUNTING FOR ACCESORY POWER 00511000
C     AND DELTA POWER FOR CLIMB AT VRCTO. THE FUEL FLOW PRINTED DOES    00512000
C     NOT INCLUDE EITHER OF THE ADDITIONAL POWERS REQUIRED, BUT THE FUEL00513000
C     FLOW IS STILL AN ACCURATE REPRESENTATION OF THE OVERALL TOHL LEG  00514000
      TKE = TPEA                                                        00515000
      KE  = NPLIM +1                                                    00516000
      SHPR = PEHF * SHPA                                                00517000
      CALL  POWREQ(0.0)                                                 00518000
      TKE  = TPEA                                                       00519000
      FP   = WSHPR * DELTA * STHETA * BHPP                              00520000
  363 IF (ETAIND.EQ.0.0) GO TO 364                                      00521000
      IF (ENGIND.EQ.2.0) GO TO 370                                      00522000
      SHPA = SHPR                                                       00523000
      GO TO 371                                                         00524000
 370  ANT = ((550.*SHPR*DELTA*TP*S2RHO*ETAP2*ETAT)                      00525000
     1  /(SQRT(WGA/WG)*BETA))**0.6667/W                                 00526000
      F = FP                                                            00527000
      A2STR = 1.0                                                       00528000
      IF (IN2.EQ.2) A2STR = A2MAX*AN2MAX                                00529000
      P = A2STR*VT                                                      00530000
      GO TO 40001                                                       00531000
 371  CALL THRUST(TPROP,1.0,ETAP)                                       00532000
      ANT = TPROP/W                                                     00533000
      GO TO 365                                                         00534000
 364  ANT = ((37.92*ETAT*ETAP2*SHPR*BHPP)**.6666)*((WG/WGA)             00535000
     1 **.3333)* DELTA / W                                              00536000
  365 F  = FP + FL                                                      00537000
      P = A2STR*VT                                                      00538000
40001 CCT = ANT*W*PI**3*WGA/(0.009507*SIGMA*WG*P**2)                    00539000
      CCP = 0.798*CCT**1.5/ETAP                                         00540000
      BHPR = 1.77562E-07*CCP*SIGMA*WG*P**3/(WGA*ETAT) + DSHPAC + DSHPRC 00541000
C **  THE ABOVE POWER REFLECTS THE ADDITIONAL POWER NECESSARY FOR       00542000
C     ACCESSORY OPTIONS AND FOR VERTICAL RATE OF CLIMB.  THE FUEL FLOW  00543000
C     IS BASED ON THE ACTUAL OPERATING ENGINE POWER CORRESPONDING TO    00544000
C     PEHF X BHP* (MAX.S.L. POWER)                                      00545000
  366 IF(OPTIND.EQ.2.)WRITE(6,9002)ST,R,WF,W,H,V,TKE,EO(KE),PEHF,LETF,  00546000
     1 ANT,ETAP,BHPR,CCT,P                                              00547000
      IF(LC1.EQ.1) RETURN                                               00548000
      IF((ST + DELTH(ITOHL)).GE.STMAX) GO TO 368                        00549000
      DLTTH = DELTH(ITOHL)                                              00550000
      GO TO 369                                                         00551000
  368 LC1 = 1                                                           00552000
      DLTTH = STMAX - ST                                                00553000
  369 W  = W - F * DLTTH                                                00554000
      WF = WF+ F * DLTTH                                                00555000
      ST = ST + DLTTH                                                   00556000
      GO TO 350                                                         00557000
      END                                                               00558000
      SUBROUTINE THRREQ(AM)                                             00001000
C**** MEMBER NAME = B93TTREQ                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      TEA = XIBIV(AM,SHPR,AMSHP,NMS,TSHP,NTS,SHPAV,6,8,IX,IZ)           00257000
 1001 FORMAT(9X,57HTHIS ERROR IS IN THE  M  PART OF THE REFERED THRUST T00258000
     1ABLE)                                                             00259000
 1002 FORMAT(9X,62HTHIS ERROR IS IN THE  THRUST  PART OF THE REFERED THR00260000
     1UST TABLE)                                                        00261000
      IF  (IX.NE.0)  WRITE(6,1001)                                      00262000
      IF  (IZ.NE.0)  WRITE(6,1002)                                      00263000
      WSHPR = XLKUP(AM,TEA,AMWD,NMW,TWD,NTW,WDOT,6,8,IX,IY)             00264000
 1003 FORMAT(9X,67HTHIS ERROR IS IN THE  M  PART OF THE REFERED FUEL FLO00265000
     1W THRUST TABLE)                                                   00266000
 1004 FORMAT(9X,67HTHIS ERROR IS IN THE  T  PART OF THE REFERED FUEL FLO00267000
     1W THRUST TABLE)                                                   00268000
      IF (IX.NE.0) WRITE(6,1003)                                        00269000
      IF (IY.NE.0) WRITE(6,1004)                                        00270000
      TPEA  = TEA  * THETA                                              00271000
      IF (WSHPR.LT.0.0)  WSHPR  =0.0                                    00272000
      WSHPR = WSHPR * CKFF                                              00273000
      RETURN                                                            00274000
      END                                                               00275000
      SUBROUTINE  TRALT(ITALT)                                          00001000
C**** MEMBER NAME = B93TTRLT                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***          PAGE NO. 24, LOC.2201 TO LOC. 2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***         PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)              00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
 9000 FORMAT(/7X,21HTRANSFER ALTITUDE TO ,F8.0,4H FT.)                  00257000
 9001 FORMAT(/28X4HFUEL,17X5HPRES.,                                     00258000
     2/8X4HTIME,5X5HRANGE,6X4HUSED,6X6HWEIGHT,5X,4HALT.,                00259000
     4/8X5H(HRS),4X6H(N.M.),5X5H(LBS),5X6H(LBS.),5X4H(FT)               00260000
     5)                                                                 00261000
 9003 FORMAT(1H+,42X,*OPTIMUM FOR NEXT CRUISE*)                         00262000
 9002 FORMAT( 7XF6.3,3XF8.2,3X,F7.1,3XF8.0,2X,F8.0)                     00263000
      INOPTG = 0                                                        00264000
      WFTOTO = 0.0                                                      00265000
      INDEX4 = INDEX3                                                   00266000
      HOO = H                                                           00267000
      HO = HFIN(ITALT)                                                  00268000
      ICHEKH = 0                                                        00269000
      IBOTOM = 0                                                        00270000
      IF (OPTIND.NE.2.) GO TO 2                                         00271000
      IF (INOPTH.EQ.1) INOPTG = 1                                       00272000
 10   IF (OPTIND.NE.2.0.OR.INOPTH.EQ.1) GO TO 2                         00273000
      WRITE(6,9000) HO                                                  00274000
      IF (INOPTG.EQ.1) WRITE(6,9003)                                    00275000
      WRITE(6,9001)                                                     00276000
      WRITE(6,9002) ST,R,WF,W,HOO                                       00277000
      WRITE(6,9002) ST,R,WF,W,HO                                        00278000
 2    IF (INOPTH.NE.1) GO TO 3                                          00279000
      EN = 0.0                                                          00280000
      H = -1000.                                                        00281000
 8    H = H + 1000.                                                     00282000
      ENO = EN                                                          00283000
      RO = R                                                            00284000
      WFO = WF                                                          00285000
      WO = W                                                            00286000
      STO = ST                                                          00287000
      H1 = H                                                            00288000
      IF (IVLMT.EQ.1.AND.H.GT.10000.) ICHEKH = ICHEKH + 1               00289000
      IF (CRSIND(INDEX4) - 2.0) 4,5,6                                   00290000
 4    CALL CRUS1(INDEX4)                                                00291000
      GO TO 7                                                           00292000
 5    CALL CRUS2(INDEX4)                                                00293000
      GO TO 7                                                           00294000
 6    CALL CRUS3(INDEX4)                                                00295000
 7    R = RO                                                            00296000
      WF = WFO                                                          00297000
      W = WO                                                            00298000
      ST = STO                                                          00299000
      H = H1                                                            00300000
      WFTOTO = 1.0                                                      00301000
      IF (IBOTOM.EQ.1.AND.EN.GT.EN10K) IBOTOM = 0                       00302000
      IF (NEXT.EQ.1) GO TO 9                                            00303000
      IF ((H+1000.).GT.HFIN(ITALT)) GO TO 12                            00304000
      IF (ENO.EQ.0.0) GO TO 8                                           00305000
      IF (EN.GE.ENO) GO TO 8                                            00306000
 9    IF (ICHEKH.EQ.0) GO TO 14                                         00307000
      IF (ICHEKH.GT.1.AND.IBOTOM.EQ.0) GO TO 14                         00308000
      IF (ICHEKH.NE.1) GO TO 15                                         00309000
      IBOTOM = 1                                                        00310000
      EN10K = ENO                                                       00311000
      H11K = H                                                          00312000
      GO TO 8                                                           00313000
 15   IF (EN10K.GE.ENO) H = H11K                                        00314000
 14   IF (H.GE.1000.)  H = H - 1000.                                    00315000
      IBOTOM = 0                                                        00316000
 12   IF (IBOTOM.EQ.1) GO TO 15                                         00317000
      NEXT = 0                                                          00318000
      INOPTH = 0                                                        00319000
      HO = H                                                            00320000
      GO TO 10                                                          00321000
 3    H = HO                                                            00322000
      RETURN                                                            00323000
      END                                                               00324000
      SUBROUTINE WGHTR                                                  00001000
C**** MEMBER NAME = B93TWHTR                                            00002000
      REAL     LETF                                                     00003000
      DIMENSION WWW(10),RRR(10),STSTST(10)                              00004000
      DIMENSION STORWF(11), STRWFL(11)                                  00005000
C ****    INPUT  COMMON                                                 00006000
C                                                                       00007000
C                                                                       00008000
C ****         PAGE NO. 1 , LOC 1  TO  LOC 76 , +SPACE(24)              00009000
C                                                                       00010000
      COMMON     OPTIND    ,TNIRPK    ,DRGIND    ,OSWIND    ,PDMIND    ,00011000
     1FDMIND    ,WDMIND    ,HTIND     ,VTIND     ,FIXIND    ,ENGIND    ,00012000
     2ESZIND    ,DNITFL    ,WG00      ,H00       ,R00       ,ST00      ,00013000
     3HOPTIN    ,VLMIND    ,EMM0      ,VM0       ,VDIV      ,EMLF      ,00014000
     4CK1       ,DELWF     ,CKFF             ,SGTIND(50)    ,SPACE1(24) 00015000
C                                                                       00016000
C                                                                       00017000
C ****         PAGE NO. 2 , LOC 101  TO  LOC  141 , +SPACE(9)           00018000
C                                                                       00019000
      COMMON     DAM2      ,DAM3      ,EYEW      ,TCR       ,TCT       ,00020000
     1DAM4      ,DLMC4     ,SLM       ,ARHT      ,SAH       ,ELTH      ,00021000
     2TCHT      ,VBARH     ,SLMH      ,AAW11     ,SR        ,YCL       ,00022000
     3ZETA1    ,ZETA2      ,DLSWSW    ,HF        ,DAM5      ,ELPD      ,00023000
     4ELTD      ,ELC       ,ELRW      ,DAM6      ,SWF       ,ARVT      ,00024000
     5ELTV      ,TCVT      ,VBARV     ,SLMV      ,AAW12     ,YMG       ,00025000
     6YP        ,YL        ,EPSLON    ,AZETA1    ,AZETA2    ,AZETA3    ,00026000
     7SKIP1(9)                                                          00027000
C                                                                       00028000
C                                                                       00029000
C ****         PAGE NO. 3 , LOC 151  TO  LOC  166 , +SPACE(33)          00030000
C                                                                       00031000
      COMMON     DNILGN    ,AGLLEY    ,ANPX1     ,ANAB1     ,ANISL1    ,00032000
     1WSEAT1    ,PSEAT1    ,WAISL1    ,DNIVAL    ,ANLAVS    ,ANPXT     ,00033000
     2ANABT     ,ANISLT    ,WSEATT    ,PSEATT    ,WAISLT    ,SPACE2(33) 00034000
C                                                                       00035000
C                                                                       00036000
C ***          PAGE NOS. 4 THRU 7 , LOC 200  TO  LOC 262 , + SPACE(38)  00037000
C                                                                       00038000
      COMMON     ETAIND    ,CYCPRP    ,DAM7      ,DAM8      ,ENP       ,00039000
     1BETA  ,ETAT  ,HES  ,SENE  ,TINY  ,AN2TO  ,ENP0  ,ENL0            ,00040000
     2POWESI    ,HC        ,VC        ,ATMIY     ,AN2CR     ,CYCLFP    ,00041000
     3DAM9  ,ENL  ,ENC     ,SKP2      ,ENR       ,VT        ,WGA       ,00042000
     4D1        ,CTSIG     ,AF        ,BLDN      ,CLEYE     ,ETAL      ,00043000
     5ETAP2     ,ETAP3     ,ETAP5     ,TBEM5(10) ,ETAP4N    ,TB8AP4(10),00044000
     6CYPROP    ,XMSND     ,XMSMRT    , DSHPAC   ,SHPTO     ,VRCRC     ,00045000
     7CKRC      ,SPACE3(38)                                             00046000
C                                                                       00047000
C                                                                       00048000
C ***          PAGE NO. 8 , LOC 301  TO  LOC  384 , +SPACE(15)          00049000
C                                                                       00050000
      COMMON     CDVTI     ,CDHTI     ,CDNI      ,CDLNI    ,DELCD      ,00051000
     1DAM10     ,DELFE     ,TCLN      ,TENN      ,TCL2N    ,CKLN       ,00052000
     2CKW       ,CKN       ,CKF       ,CKVT      ,CKHT     ,TBCL1(8)   ,00053000
     3TBEM(5)   ,RELI      ,CSLALF    ,ALPHL0    ,XCPS     ,XCTCM      ,00054000
     4TBCDWI(8) ,TBCL2(7)  ,TBCDM(7,5)  , SPACE4(15)                    00055000
C                                                                       00056000
C                                                                       00057000
C ***          PAGE NO. 9 , LOC 400  TO  LOC  475 , +SPACE(25)          00058000
C                                                                       00059000
      COMMON   OWE1    ,WFE    ,WFUL    ,WPL    ,SKCC    ,SKFW         ,00060000
     1SKH       ,SKSAS     ,SKTM      ,SKUC      ,CK15     ,CK16       ,00061000
     2CK17      ,CK18      ,CK19      ,CK20      ,THN      ,DELWF2     ,00062000
     3DELWP     ,DELWST    ,SKP       ,SKLES     ,SKLG     ,SKMG       ,00063000
     4SKTL      ,SKWF      ,SKWW      ,SKY       ,SKZ      ,SKPES      ,00064000
     5SKMT      ,SKNAC     ,SKLMT                                       00065000
      COMMON     CK8       ,CK9       ,CK10      ,CK11     ,CK12       ,00066000
     1CK13      ,CK14      ,TBH(10)   ,DELP      ,WC       ,YC         ,00067000
     2SKDS      ,SKFS      ,SKLEI     ,SKPEI     ,SKRP     ,SKVT       ,00068000
     3CK2       ,CK3       ,CK4       ,CK5       ,CK6      ,CK7        ,00069000
     4CK21      ,TBTHE(10) ,SPACE5(25)                                  00070000
C                                                                       00071000
C                                                                       00072000
C ***          PAGE NO. 10, LOC 501  TO  LOC  550 , +SPACE(50)          00073000
C                                                                       00074000
      COMMON     ATMIN1(10),DELTT(10) ,TIN1(10)  ,SKFL(10)  ,AN2M1(10) ,00075000
     1SPACE6(50)                                                        00076000
C                                                                       00077000
C                                                                       00078000
C ***          PAGE NO. 11, LOC 601  TO  LOC  690                       00079000
C                                                                       00080000
      COMMON     TOLIND(10),ATMIN2(10),PFET2(10) ,TIN2(10)  ,FLET2(10) ,00081000
     1ENT(10)    ,DELTH(10) , AN2M2(10) ,STH(10)                        00082000
C                                                                       00083000
C                                                                       00084000
C ***          PAGE NO. 12, LOC 691  TO  LOC 800                        00085000
C                                                                       00086000
      COMMON     CLMIND(10),EMACH(10),ATMIN3(10),DELH3(10),TIN3(10),    00087000
     1HMAX(10) ,POWCLI(10),THEMAX(10),AN2M3(10),DCLIMB(10),ENCLMB(10)   00088000
C                                                                       00089000
C                                                                       00090000
C ***          PAGE NO. 13  LOC 801  TO  LOC 900                        00091000
C                                                                       00092000
      COMMON     CRSIND(10),VIN(10)   ,ATMIN4(10),DELR(10)  ,TIN4(10)  ,00093000
     1RMAX(10)  ,POWCRI(10),ENPSD(10) ,AN2M4(10) ,DLCDCR(10)            00094000
C                                                                       00095000
C                                                                       00096000
C ***          PAGE NO. 14  LOC 901  TO  LOC 1000                       00097000
C                                                                       00098000
      COMMON     DESIND(10),EAS5(10)  ,ATMIN5(10),THEMIN(10),TIN5(10)  ,00099000
     1DELH5(10) ,RMAX5(10) ,HMIN(10)  ,AN2M5(10) ,DLCDDS(10)            00100000
C                                                                       00101000
C                                                                       00102000
C ***          PAGE NO. 15  LOC 1001  TO  LOC  1080,  +SPACE(20)        00103000
C                                                                       00104000
      COMMON    DNIRTL(10),DELST(10),ATMIN6(10),STL(10) , TIN6(10),     00105000
     1ENPSDL(10),AN2M6(10),DLOITR(10),RSW(10),SPAC11(10)                00106000
C                                                                       00107000
C                                                                       00108000
C ***          PAGE NO. 16  LOC 1101  TO  LOC  1151 , +SPACE(49)        00109000
C                                                                       00110000
      COMMON     DLTAWF(10),HFIN(10)  ,STFW(10)  ,DELWPL(10),STPW(10)  ,00111000
     1WGTIND    ,SPAC12(49)                                             00112000
C                                                                       00113000
C                                                                       00114000
C ***          PAGE NO. 17  LOC 1201  TO  LOC  1257 , +SPACE(43)        00115000
C                                                                       00116000
      COMMON   WDTIND   ,AN1IND   ,AN3IND   ,AN2IND   ,QIND   ,RNOIND  ,00117000
     1PRN(10)  ,VWDIND  ,VN1IND  ,VN2IND  ,WMAX  ,A1MAX  ,A3MAX        ,00118000
     2A2MAX     ,QMAX      ,RNE(10)   ,WLMAX     ,A1LMAX    ,AL2MAX    ,00119000
     3A2NO(10)  ,PN2(10)   ,SPAC13(43)                                  00120000
C                                                                       00121000
C                                                                       00122000
C ***          PAGE NOS. 18 + 19 , LOC 1301 TO LOC 1565 ,+SPACE(35)     00123000
C                                                                       00124000
      COMMON     CYCPRL    ,SK3       ,SK4       ,XI4      ,TGI        ,00125000
     1TFI       ,TNRP      ,TMIL      ,TMAX      ,UNTS     ,TSHP(8)    ,00126000
     2UMS       ,AMSHP(6)  ,SHPAV(6,8),UNTW      ,TWD(8)   ,UMW        ,00127000
     3AMWD(6)   ,WDOT(6,8) ,UNT1      ,TN1(8)    ,UNM1     ,AM1(6)     ,00128000
     4AONE(6,8) ,UNT2      ,TN2(8)    ,UNM2      ,AM2(6)   ,ATWO(6,8)  ,00129000
     5SPAC14(35)                                                        00130000
C                                                                       00131000
C                                                                       00132000
C ***          PAGE NOS. 20 + 21 , LOC 1601 TO LOC 1672 , + SPACE(27)   00133000
C                                                                       00134000
      COMMON     CYCLFL    ,SK1       ,SK2       ,XI1      ,XI2        ,00135000
     1XI3       ,TLGI      ,TLMAX     ,TF(8)     ,FAVL(8)  ,TFW(8)     ,00136000
     2FWDOT(8)  ,TF1(8)    ,FONE(8)   ,TF2(8)    ,FTWO(8),   SPAC15(27) 00137000
C                                                                       00138000
C                                                                       00139000
C ***          PAGE NOS. 22 + 23 , LOC 1700  TO LOC 2142 + SAVE(58)     00140000
C                                                                       00141000
      COMMON    PROPCY,XPJNO,XPJ(20),CPPNO,CPPROP(20)  ,CTPROP(20,20),  00142000
     1SAVE(58)                                                          00143000
C                                                                       00144000
C                                                                       00145000
C ***           PAGE NO. 24, LOC.2201 TO LOC.2330 + SPACE(20)           00146000
C                                                                       00147000
      COMMON     GWIND(10), GWP(10) , ATMIN7(10) , CLWP(10) , TIN7(10), 00148000
     1DELFEP(10),AHOP(10) , TOWP(10), AN2M7(10)  , DELVP(10), VMAXP(10),00149000
     2AN2M8(10) ,VRCTO(10) ,SPAC16(20)                                  00150000
C                                                                       00151000
C **  VRCTO = VERTICAL RATE OF CLIMB FOR TOHL                           00152000
C                                                                       00153000
C ***        PAGE NO.25  , LOC 2351 TO 2428  +  SPACE(22)               00154000
C                                                                       00155000
      COMMON     CTSGNO  ,  CTOSIG(10),  TPMNO , TIPM(6)  ,  FMER(10,6),00156000
     1SPAC17(22)                                                        00157000
C                                                                       00158000
C                                                                       00159000
C ****         COMMON    MAIN                                           00160000
C                                                                       00161000
      COMMON     ATMIND(60),TIN(60)   ,DELH(20)  ,EMPTY1    ,WG        ,00162000
     1R         ,ST        ,H        ,OPTION                            00163000
      COMMON     AR        ,CBARD     ,WGS       ,ELF       ,SF        ,00164000
     1BHPP      ,TP        ,TL        ,SEE                              00165000
      COMMON     IC2D      ,IRMAX     ,RC        ,OPTWAS,PETF,PEHF,LETF 00166000
      COMMON     NEXT      ,DTOR      ,RTOD                             00167000
      COMMON     NTH       ,NETAP4    ,INDDRG    ,NTCL      ,NTCL2      00168000
      COMMON     NTEM      ,INDLFT    ,INDENG    ,INDESZ                00169000
      COMMON    IVLMT   ,INOPTH   ,KPRINT   ,WFTOTO                     00170000
C                                                                       00171000
C            ENGINE  ROUTINES                ENGINE ROUTINES            00172000
      COMMON     SHPA      ,WSHPA     ,SHPR      ,WSHPR     ,AN2MAX    ,00173000
     1A2STR     ,TPEA      ,NPLIM     ,FLIF      ,FWA       ,FREQ      ,00174000
     2FWR       ,TLEA      ,NLLIM                                       00175000
      COMMON     IWD       ,IN1       ,IN2       ,IQ        ,IRN       ,00176000
     1NMS       ,NTS       ,NMW       ,NTW       ,NM1       ,NT1       ,00177000
     2NM2      ,NT2       ,LWD      ,LN1       ,LN2        ,IN3         00178000
C                                                                       00179000
C                   AERO                      AERO                      00180000
      COMMON     B         ,TC        ,RLMC4     ,DLMPS     ,DLMTCX     00181000
      COMMON     SA1       ,SA2       ,RLMLE     ,FK        ,SA3        00182000
      COMMON     SA4       ,REF       ,FFRE                 ,SA5        00183000
      COMMON     SA6       ,SA7       ,CLALPH    ,REW       ,FWRE       00184000
      COMMON     FNRE      ,REN       ,FVTRE     ,REVT      ,FHTRE      00185000
      COMMON     REHT      ,FLNRE     ,RELN      ,DLMELE                00186000
      COMMON     FEW       , FEF       ,FEVT      ,FEHT      ,FEN       00187000
      COMMON     FELN      ,DLTAFE     ,FE       ,CBARF     ,SWET       00188000
C                                                                       00189000
C                   ATMOS                     ATMOS                     00190000
      COMMON     THETA     ,DELTA     ,SIGMA     ,STHETA    ,SA         00191000
      COMMON     RHO       ,S2RHO                                       00192000
C                                                                       00193000
C                   CHGFW                     CHGFW                     00194000
      COMMON     STORWF    ,W         ,WFL       ,STRWFL                00195000
C                                                                       00196000
C                   CHGPL     NOTHING NEW IS CALCULATED                 00197000
C                                                                       00198000
C                   CLIMB                     CLIMB                     00199000
      COMMON     DELTAH    ,V2        ,VMAX      ,RGAM1     ,RGAM3      00200000
      COMMON     EM        ,Q         ,CL        ,PHI       ,BLP        00201000
      COMMON     BHPA      ,RCPOW     ,TLP       ,TA        ,RGAM2      00202000
      COMMON     RCTETA    ,RGAM4     ,RC2       ,RC1       ,V          00203000
      COMMON     THETAF    ,GAMMA     ,SFC       ,F         ,TSFC       00204000
      COMMON    V1      ,INDEX3      ,IOPTH                             00205000
C     CRUS1, 2, AND 3                        CRUS1 ,2 AND 3             00206000
      COMMON     BHPR      ,B1        ,DELV      ,DELR1     ,RRR        00207000
      COMMON     STSTST    ,WWW       ,B2        ,TR        ,T1         00208000
      COMMON     T2        ,ETAP4     ,EN        ,EN1       ,EN2        00209000
C                                                                       00210000
C                   DRAG                      DRAG                      00211000
      COMMON     EMD       ,DELCDM    ,CDWI      ,CD                    00212000
C                                                                       00213000
C                   DSCNT                     DSCNT                     00214000
      COMMON     HSTAR     ,RSTAR     ,WSTAR     ,WFSTAR    ,GAM1       00215000
      COMMON     GAM2      ,RS        ,BHPCRU    ,BHPIDL    ,BHPTHE     00216000
      COMMON     TCRUS     ,TIDLE     ,TTHETA               ,BHP        00217000
      COMMON     T                                                      00218000
C                                                                       00219000
C                   ENGSZ                     ENGSZ                     00220000
      COMMON     DELTAY    ,TLL       ,TLPPR     ,BHPP2     ,BHPXMS     00221000
      COMMON     BHPP1     ,SIGRP     ,TP1       ,TP2       ,TPXMSN     00222000
      COMMON     P         ,ANXMAX                                      00223000
C                                                                       00224000
C                   LOITR                     LOITR                     00225000
      COMMON     W0        ,ST0       ,DELP1     ,VMIN      ,F2         00226000
      COMMON     F1        ,WF        ,WFS       ,WFR                   00227000
C                                                                       00228000
C                   SIZTR                     SIZTR                     00229000
      COMMON     DBAR      ,ELP       ,DEBAR     ,ELT                   00230000
      COMMON     D         ,CBARW     ,SW        ,SHT                   00231000
      COMMON     SVT       ,CBARHT     ,CBARVT   ,BHT       ,BVT        00232000
      COMMON     DBARLN    ,ELLN      ,SLN       ,DBARN     ,ELN        00233000
      COMMON    NLAVS   ,AGALLY   ,ACL      ,DBDB   ,DCDC   ,PREC1     ,00234000
     1NGLIND   ,LAVIND  ,SN       ,SIGS                                 00235000
C                                                                       00236000
C                   TAXI                      TAXI                      00237000
      COMMON     FP        ,FT        ,FL        ,WFT       ,WDOTFL     00238000
C                                                                       00239000
C                   TOHL                      TOHL                      00240000
      COMMON     BHPSUP    ,TSUBP     ,WFH                              00241000
C                                                                       00242000
C                   WGHTR                     WGHTR                     00243000
      COMMON     WEL       ,WEP       ,WRP       ,WDS       ,WPEI       00244000
      COMMON     WLEI      ,WP        ,WLG       ,WMG       ,WPES       00245000
      COMMON     WLES      ,FH        ,FV        ,WHT       ,WVT        00246000
      COMMON     GLF       ,ULF       ,CGAMMA    ,WFW       ,WR         00247000
      COMMON     RF        ,WW1       ,WM        ,Z         ,WW         00248000
      COMMON     WX        ,WB        ,WST       ,WCC       ,WUC        00249000
      COMMON     WH        ,WSAS      ,WTM       ,WFC       ,WFA   ,WFSS00250000
      COMMON     WE        ,OWE       ,WCFW      ,WPSTAR                00251000
      COMMON     WFWFWF(10),VVV(10)   ,ENENEN(10),EASEAS(10),EMEMEM(10),00252000
     1EMDEMD(10),PEHFPE(10)                                             00253000
      DIMENSION DATA(1)                                                 00254000
      EQUIVALENCE (DATA(1),OPTIND)                                      00255000
      EQUIVALENCE (ALPHL0,ALPHLO)                                       00256000
      LC1  = 0                                                          00257000
      WFW  = 0.0                                                        00258000
      LFTIND = DNITFL                                                   00259000
      IF(LFTIND.EQ.0) GO TO 2                                           00260000
      WEL  = SK1 * TL  + SK2 * ENL                                      00261000
      WEP  = SK3 * TP  + SK4 * ENP                                      00262000
    1 WRP  = 0.                                                         00263000
      WDS  = 0.                                                         00264000
    9 WPEI = SKPEI * WEP                                                00265000
      WLEI = SKLEI * WEL                                                00266000
      WPSTAR= CK2 *WRP +CK3 *WDS +CK4 *WEL +CK5*WEP +CK6*WLEI +CK7*WPEI 00267000
     1     + DELWP                                                      00268000
      GO TO 4                                                           00269000
    2 WEL    = 0.                                                       00270000
      IF(INDENG.EQ.0) GO TO 3                                           00271000
      WEP    = SK3 * TP + SK4 * ENP                                     00272000
      IF(INDENG.EQ.1) GO TO 1                                           00273000
      BHPXMS = TPXMSN/BETA                                              00274000
    8 PDSXMS = A2MAX*ANXMAX*VT                                          00275000
C **  ANXMAX FOR XMSN SIZING WITH FIXIND=0.0 IS SET IN MAIN             00276000
      PRP = A2MAX*AN2TO*VT                                              00277000
C ***     ANXMAX IS CALCULATED IN ENGSZ                                 00278000
C ***     PRP USES MAXIMUM TIP SPEED; PRESUMED TO BE TAKEOFF            00279000
      WRP    = SKRP*((SR*D/2.)**.25*(BHPP*1.1/(100.*ENR))**.5*.011*PRP  00280000
     1       *(SIGRP*3.1415926*D**2/40.))**.67*ENR                      00281000
      WDS    = SKDS  *(D * BHPXMS /(SKVT * PDSXMS))**.8                 00282000
      WDS = WDS / 9.8105                                                00283000
      GO TO 9                                                           00284000
    3 WEP    = SK3 * BHPP + SK4 * ENP                                   00285000
      GO TO 8                                                           00286000
    4 SIGMA = (VM0 /(661.7 * EMM0))**1.61949                            00287000
      IF (SIGMA.GE.0.53281) GO TO 20                                    00288000
      SIGMA  = 0.53281                                                  00289000
      EM  = VM0 / 448.56                                                00290000
      V9  = VM0                                                         00291000
      GO TO 25                                                          00292000
   20 V9  = VM0                                                         00293000
      IF (SIGMA.LE.1.0) GO TO 22                                        00294000
      V9  = 661.7 * EMM0                                                00295000
      SIGMA = 1.0                                                       00296000
   22 EM  = EMM0                                                        00297000
   25 D19 = 3.141593 * AR /(1.0 +SQRT((3.141593*AR /CSLALF)**2  *       00298000
     1    (SAVE(26) -EM**2) + 1.0))                                     00299000
      GLF  = 1.0  + 0.549 * V9 / (1.26*SIGMA*CBARW +6.216*WG/(SW*D19))  00300000
      ULF = GLF * 1.5                                                   00301000
      IF(GLF.LE.EMLF) ULF = EMLF *1.5                                   00302000
      WPES = SKPES* WEP                                                 00303000
      IF (SKPES.NE.0.0) GO TO 28                                        00304000
      WPES = 1.02 *( (WRP*(1.0+SKUC)+WDS+WEP*(1.0+SKPEI)+DELWP)/1000.*  00305000
     1    (2.0+SKLMT*SLN)*ULF*SKMT+0.5*ALOG10(VDIV)*SN*SKNAC +(DBARN**2 00306000
     2    * ENP) )                                                      00307000
   28 WLG  =  SKLG * WG                                                 00308000
      WMG  = SKMG * WLG                                                 00309000
      WLES = SKLES* WEL                                                 00310000
      FH   = WG * SKY *ELF *BHT *SKTL *(1.+2.*SLMH)/(1000000.*(1.+SLMH))00311000
      FV   = WG * SKZ*(ELF+B)*BVT     *(1.+2.*SLMV)/(1000000.*(1.+SLMV))00312000
      FV  = FV / 2.                                                     00313000
      WHT  = 350.*(SHT*FH*ALOG10(VDIV)*(1.+SLMH)/(200.*ELTH*TCHT*CBARHT)00314000
     1    )**.54                                                        00315000
      WVT  = 360.*((FV+SAH*FH/2.)*SVT*ALOG10(VDIV)*(1.+SLMV)/(200.*     00316000
     1    ELTV * TCVT * CBARVT))**.54                                   00317000
      CGAMMA = (SW/1000.)**1.25 * (1.+ULF*WG/(200.*SW))*(.01*AR/TCR+.3) 00318000
     1       * (1.+ABS(SIN(RLMC4)))**.54 *(1.+.2*SLM)*(TCR/TCT)**.1     00319000
      WR  = 2.*(YP*(WEP*(1.+SKPEI)+WPES) +WEL*YL*(1.+SKLEI+SKLES) +     00320000
     1    WMG*YMG + WC*YC)                                              00321000
   99 RF  = (WR + .76 *WFW) / WG                                        00322000
      IF(RF.GT..4) RF = .4                                              00323000
      WW1    = 3830. * CGAMMA *(1.-RF)*WG /(WG + 3064.*CGAMMA)          00324000
      WM = (WEP*(1.+SKPEI)+WPES)*YP/(YP+.001) + WEL*(1.+SKLEI+SKLES)*YL 00325000
     1    /(YL+.001) + WMG*YMG/(YMG+.001) +WC+WDS+WRP+DELWP+SKUC*WRP    00326000
      Z  = (2.*SLM + 1.)/(3.*(SLM+1.)) - SWF/B                          00327000
   10 FOO=1.-WR/(2.*(WG-WW1-WFW)*Z)                                     00328000
      IF(FOO.LT..6)FOO=.6                                               00329000
      WW= SKWW*(FOO*(WG-WW1-WM-WFW)/10000.*SW/100.                      00330000
     1    *ALOG10(B/SWF)*SQRT((1.+SLM)/(2.*TCR))*SQRT(ULF)              00331000
     2    *ALOG10(VDIV)    * ALOG10(AR))**.585                          00332000
      IF((ABS(WW1-WW)/WW).LE..01) GO TO 11                              00333000
      WW1 = WW                                                          00334000
      GO TO 10                                                          00335000
   11 WX  = WG - WW - WFW - WM                                          00336000
      WB  = SKP * ((WX/10000.)**.7 * (SF/1000.) * SWF * (ELF + ELRW)**.500337000
     1    *ALOG10(VDIV  )    * (DELP + 1.)**.2 * ULF**.3)**.508         00338000
      WST = CK8*WW + CK9*WHT + CK10*WVT + CK11*WB + CK12*WLG + CK13*WLES00339000
     1    + CK14*WPES + DELWST                                          00340000
      WCC = SKCC  * (WG / 1000.) ** .41                                 00341000
      WUC = SKUC  * (WRP)                                               00342000
      WH  = SKH   * (WRP/100.) ** .84                                   00343000
      WCFW= SKFW * WG                                                   00344000
      WSAS= SKSAS                                                       00345000
      WTM = SKTM  *  WG                                                 00346000
      WFC = CK15*WCC + CK16*WUC +CK17*WH + CK18*WCFW + CK19*WSAS        00347000
     1     + CK20*WTM + DELWF2                                          00348000
      WFA = (WG-WPSTAR-WST-WFC-WFE-WFUL-WPL)/(1.+ SKFS*CK21)            00349000
      WFSS= SKFS * WFA                                                  00350000
      WTEST = WFW                                                       00351000
      WFW   = SKWF *(SW**1.5)                                           00352000
      IF (WFA.LT.WFW) WFW = WFA                                         00353000
      IF (ABS(WTEST-WFW).LE.10.) GO TO 60                               00354000
      IF (LC1-1) 40,42,44                                               00355000
   40 W1  = WTEST                                                       00356000
      A1  = WFW                                                         00357000
      LC1 = 1                                                           00358000
      GO  TO 99                                                         00359000
   44 W1  = W2                                                          00360000
      A1  = A2                                                          00361000
   42 W2  = WTEST                                                       00362000
      A2  = WFW                                                         00363000
      WFW =(A2*W1 - A1*W2)/(W1-A1-W2+A2)                                00364000
      LC1 = 2                                                           00365000
      GO TO 99                                                          00366000
   60 WP= WPSTAR + CK21*WFSS                                            00367000
      WRP   = CK2 * WRP                                                 00368000
      WDS   = CK3 * WDS                                                 00369000
      WEL   = CK4 * WEL                                                 00370000
      WEP   = CK5 * WEP                                                 00371000
      WLEI  = CK6 * WLEI                                                00372000
      WPEI  = CK7 * WPEI                                                00373000
      WFSS  = CK21* WFSS                                                00374000
      WW    = CK8 * WW                                                  00375000
      WHT   = CK9 * WHT                                                 00376000
      WVT   = CK10* WVT                                                 00377000
      WB    = CK11* WB                                                  00378000
      WLG   = CK12* WLG                                                 00379000
      WLES  = CK13* WLES                                                00380000
      WPES  = CK14* WPES                                                00381000
      WCC   = CK15* WCC                                                 00382000
      WUC   = CK16* WUC                                                 00383000
      WH    = CK17* WH                                                  00384000
      WCFW  = CK18* WCFW                                                00385000
      WSAS  = CK19* WSAS                                                00386000
      WTM   = CK20* WTM                                                 00387000
      RETURN                                                            00388000
      END                                                               00389000
